DDDDDDDDDDDD EEEEEEEEEEEEEEE BBB8BBBB8BB8B UUU UUU GGGGGGGGGGGG 
DODDDDDDDDDD EEEEEEEEEEEEEEE BBB888BB8BBBB UUU UUU GGGGGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B8BB8BB8BBEB UUU UUU GGGGGGGGGGGG 
DOD | DDD EEE BBB BBB UUU UU G 

DOD DDD EEE BBB BBB UUU UUU GGG 

DDD DDD EEE 888 BBB UUU UUU GGG 

DOD DOD EEE BBB BBB UUU UUU GGG 

DDD DOD EEE 888 BBB UUU UUU GGG 

DOD DDD EEE BBB BBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBBBBBB UUU UUU GGG 

DDD DDD EEEEEEEEEEEE BBBBBBBS8EEBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBSBBBB UUU UUU GGG 

DOD DDD EEE BBB UUU UUU GGG GG6GGGGGGG 
DDD DDD EEE B88 BBB UUU UUU GGG 6G6G6G6GGGG6G 
DOD DDD EEE BBB BBB UUU UUU GGG 666666666 
DDD DDD EEE 888 BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B88B8BB8B888 UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDODDDDDD EEEEEEEEEEEEEEE BBSBBBB8BBBB UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE BB8B8BBBBBBBB UUUUUUUUUUUUUUU GGGGGGGGG 


**F ILE**1D**DBGLANGOP 
| 
DDDDDDODD BBBBBBBB GGGGGGGG LL ABAAGA NN NN GGGGGGGG 000000 PPPPPPPP 
DDDDDDDD BBBBBBBB GGGGGGGG LL AAAAAA NN NN GGGGGGGG 000000 PPPPPPPP 
DD DD 88 BB GG LL AA AA NN NN GG 00 00 PP PP 
dD DD 68 BB GG LL aa AA NN NN GG 00 00 PP PP 
od DD 68 BB GG LL AA AA WNNNN NN GG 00 00 PP PP 
0D DD 88 BB GG LL Ab AA NNNN NN GG 00 00 PP PP 
0D DD 88888888 GG LL AA AA NN NN NN GG 00 00 PPPPPPPP 
0D DD 88888688 GG LL AA AA NN NN NN GG 00 00 PPPPPPPP 
dD DD 6B BB GG GGGGGG LL AAAAAAAAAA §=NN NNNN GG GGGGGG 00 00 PP 
dD DD 8B BB GG GGGGGG LL AAAAAAAAAA §=NN NNNN GG GGGGGG 00 00 PP 
DD DD 8B BB GG GG LL AA AA WN NN GG GG 00 00 PP eee 
dD DD 88 BB GG GG LL ab AA WN NN GG GG 00 00 PP cove 
DDODDDDD BBBBB88B GGGGGG LLLLLLLLLL AA AA WN NN GGGGGG 000000 PP eeee 
DDDDDDDD BBBBB8B8 GGGG6GG LLLLLLLLLL AA AA WN NN GGGGGG 000000 PP ceee 
LL III] SSSSSSSS 
LL 111] SSSSSSSS 
LL I] SS 
LL I] SS 
LL I! SS 
LL I] $s 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] $$ 
LLELLLLLLLL III] SSSSSSSS 
LLLLLLLLLL VIII] SSSSSSSS 
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in 3-1 98c 934984 DEBUG. SRC ]DBGLANGOP .83 31 oe (1) 
MODULE DBGLANGOP (IDENT = ‘V04-000') = 


BEGIN 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN eee WITH THE TERMS OF 4t' of Gane or THE 
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; I 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


ft 
® 
€ 
® 
® 
® 
® 
® 
© 
® 
ie TRANSFERRED. * 
® 
® 
® 
& 
® 
+ 
oom 
7 
= 
*® 


gessgessgs 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORAT Ibe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ITY FOR THE USE OR RELIABILITY OF ITS 


ie DIGITAL ASSUMES NO RESPONSIBIL 
CH IS NOT SUPPLIED BY DIGITAL. 
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1! 

1 ! WRITTEN BY 

; Rich Title Nov 1982 

1 ! MODULE FUNCTION 

: is module contains the routines that are used to evaluate the 

1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
1 
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1 
1 
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following Language operators in C: * (dereference), & (address of), 
SIZEOF, and addition and subtraction involving pointers. 


MODIFIED BY 
B. Becker Nov 1983 : Add routines for Ada tick operator support 
B. Becker Dec 1983 ! Add arithmetic routines for Scaled Binary. 


QEREUNSS 
~ 
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REQUIRE "SRC$:DBGPROLOG.REQ'; 
FORWARD ROUTINE 
DBG -F IXED : NOVALUE, 
DBGSADD FIXED FIXED : NOVALUE 


GSC_ADD_TPTR.L —: NOVALUE. 
DBGSCTADDRESS OF =: NOVALUE, 


ye Rae et pet sen y Stee tert eh eth Ge ing ote atgareetar—d 
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So 
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! Perform the absolute value operation on Scaled Binary 
! Perform the add operation on Scaled Binary 

! Add an integer to a pointer 

' Address-of operator 

° dngirect ten operator 


! ¢¢PTR 

' SIZEOF operator 

! Subtract an integer from a pointer 
: Subtract two gojaters , 
! Perform the divide operation on Scaled Binary 
! Find first enumeration element 

! Find position of enumeration element 

! Find successor of enumeration element 


45 


tee whet PP] 
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DBGSC~SUB_TPTR_L _—: ~NOVALUE, 
DBGS$C~SUB-TPTR-TPTR : NOVALUE, 
DBGSDTV_FIXED FIXED : NOVALUE, 
DBGSENUA_FIRST, 

DBGSENUM_POS 
DBGSENUM~ SUC, 
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; GLANGOP d-se0-1984 91:49: 30 AX-11 Oh igsaze V4.0-74 Page 2 


1 
-000 14-Sep-19 DEBUG. SRC JDBGLANGOP .832;1 (1) 
8 91 DBGSENUM_VAL ! Given position, find yolus of enum element 
3 DBGSEQL FIXEO_FIXED : NOVALUE, i Perform the equal evaluation on Scaled Binary 

60 BGSEVAC_ADA_ TICK ' Evaluate an Ada tick operator 

61 94 DBGSGTR_FIXED_FIXED : NOVALUE, ! Perform the greater than evaluation on Scaled Binery 

6 95 BGSGEQ_FIXED_ FIXED : NOVALUE, ! Perform the greater than or equal evaluation on Scaled Binary 
6 GSLEQ_FIXED_FIXED : NOVALUE, ! Perform the less than or gauss evaluation on Scaled Binary 
64 DBGSLSS_ FIXED FIXED : NOVALUE, ! Perform the less than evaluation on Scaled Binary 

65 GSMAKE_VALUE_DESC, ! Gets a DST value from a Data Type Comp. entry 

$8 DBGSMUL_FIXED_FIXED : NOVALUE, ! Perform the multiply operation on Scaled Binary 

6 DBGSNEQ FIXED_FIXED : NOVALUE, ! Perform the not equal evaluation on Scaled Binary 

68 DBGSNORMALIZE-FIXED : NOVALUE, ' Normalize a scaled binar 

9 DBGSPRED_ENUM : NOVALUE, ' Return the Predecessor of the enumerated type 

0 DBGSSUCC_ ENUM : NOVALUE, ' Return the Successor of the enumerated type 

71 DBGSSUB_FIXED_FIXED : NOVALUE, ! Perform the subtract operation on Scaled Binary 

7 DBGSTYPEID_TO-PRIMAR ! Convert typeid to Primary 

7 G RY_PLUS_ FIXED: NOVALUE ! Perform the unary plus operation on Scaled Binary 

74 DBGSUNARY MINUS FIXED NOVALUE, ! Perform the unary minus operation on Scaled Binary 

fe MATCH_FIXED_BINARYS : NOVALUE; ! Matches the scales of the fixed binarys 

7 EXTERNAL 

78 DBGSGB_LANGUAGE: BYTE, ' Current language setting 

He DBGSGL_CONVERT_TOKEN; ! Language value for call to EVAL_LANG_OPERATOR 


LINKAGE 
JSB_R1 = JSB (REGISTER = 0, REGISTER 


EXTERNAL ROUTINE 
DBGSBUILD_PRIMARY_SUBNODE: NOVALUE, 
DBGSCVT_CUTLH_R1: JSB_R1 NOVALUE, 


1): PRESERVE (0, 1); 


! Used in constructing Primary Descriptors 
: Convert longword to H Float 

! Obtain Length from VMS descriptor 

' Convert a primary to a value descriptor 
! Fills im the VMS desc. fields 


BGSGE _BIF-~ARGOMENTS, ! Obtain Ada tick operator arguments 
BGSGET" TEMPMEM ' Allocate temporary memory 

BG E_SKELET ! Make up a descriptor. 
DBGSSTA_ADDRESS_TO_REGDESCR, Obtain register descriptor 
DBGSSTA_SYMTYPE: NOVALUE, ! Obtain type from symid 
DBGSSTA_SYMVALUE, ' Obtain value of the symbol 
DBGSSTA_TYP_ARRAY: NOVALUE, ! Obtain info about array 
DBGSSTA_TYP_ENUM: ! Obtain info about enumeration type 


“TYP"ENUM: NOVALUE 
DBGSSTA_TYP-TYPEDPTR: NOVALUE, 
DBGSSTA~TYPEF COD 
DBGS$STA-TYP_SUBRNG: NOVALUE, 
DBGSTYPEID_FOR_ATOMIC, 
DBGSTYPE ID-~FOR-TPTR; 


BUILTIN 
DIVH 


' Obtain info about typed pointer 

! Obtain FCODE from SYMID 

' Obtain Parent typeid for subrange 
TYPEID for an atomic data type 


' 
' 
' 
' 
' 
{ 
{ 
i] 
' 
DBGSSTASYNSIZE: NOVALUE, : Obtain Length from SYMID 
' 
' 
' 
' 
i 
' 
' 
! Obtain TYPEID for TPTR data type 
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LOBAL ROUTINE DBGSABS_FIXED (ARG_DESC, RESULT_DESC): NOVALUE = 
i FUNCTION 


This routine is called to perform the absolute value operation 
on a scaled binary variable. 


i INPUTS 


WN O OONAVE WN "OOOO UT 


PEED DAAAAA I & 


LEAF 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee et 
SPRIPIPIMPINIPIPIPIN II ad et st tt tt tt td i a 


w ee nd nd ed od = dD 
COnou VOD NOP CI ODO NOME UII 


POPOPIPIPYNININYPYNINININYNINYIPIPPOPNPPONNoNnofufnunnn 


Se Se Ge Se Ge Ge Ge Ge Fe Se Ge Ge Ge Se Ge Se Oe Ge Ge Ge SH SH Se Ge Se Ge Se Se Ge ee 
OOCOCOCOCCOCOOCOOOoOoCooO 


NSNOAOAO 
—OO®w 


ARG_DESC - poe to the value descriptor representing the 
a of the operation. 
RESULT_DESC - points to the value descriptor representing the result. 
; of the operation. 
i OUTPUTS 


ay result value descriptor is filled in. 
No value is returned. 


BEGIN 
P 
RESULT_DESC : REF DBGSVALDESC, 
ARG_DESC : REF DBGSVALDESC; 
-RESULT_DESCCDBGSL VALUE POINTER] = ABS(..ARG DESCCDBGSL VALUE_POINTER)); 
RESULT -DESCEDBG $B VALUE SCALE] = .ARG_ Be st poses vA LUE_STA at 
RESULT “DESC CDBGSB— VALUE “DT YPE) = JARG"DESCCDBGSB~ VALUE “DTYPE 
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ENT \v04-000\ 
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XTRN DBGS$GB_ LANGUAGE 

XTRN DBGSGL~ CONVERT TOKEN 

XTRN DBGSBUILD PRIMARY _ SUBNODE 
TRN e TEA 
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LE NETH 
XTRN DBGSEVAL_LANG OPERATOR 
XTRN DBGSFILL-IN_VAS_ DESC 
XTRN DBGSGET 61 “ARCOMENTS 
XTRN DBGSGET"T Som 


SMAKE_ SKELETON DESC 
XTRN DBGSSTA “ADDRESS. 10. OREGDESCR 


“TYP-TYPEDPTR 
YPEF CODE 
UB 
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GLA 16-Sep-1984 01: AX-11 Bliss-32 V4.0 7 é 
idee il ae teats A eS a Eg a9? 123 
.PSECT DBGSCODE.NOWRT, SHR, PIC.O | 
LENTRY DBGSABS_FIXED, Save R2 + 024 
WOVE. RESULT DESC, 2 $388 

A 6 DESC, «ah 
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ROR EY a 

8 " 9 A pore oe TRO) 
5 ; C 1 MNEGL 1, Ri 
B 1 13 18 MOVL 1, a2 
A ' : 1 8 
A & 3) ) 

4 0002 


; Routine Size: 34 bytes, Routine Base: DBGSCODE + 0000 


# 
. 


18-Sep-19 


AX-11 Bliss-32 V4.0-74 


14-Sep-19 


FUNCTION 
This routine is called to perform the add operation 


on a scaled binary variable. 


DEBUG. SRC JDBGLANGOP .832;1 
LOBAL ROUTINE DBGSADD_FIXED_FIXED (ARG_DESC1, ARG_DESC2, RESULT_DESC): NOVALUE = 


INPUTS 
ARG_DESC1 = points to the value descriptor representing the 
eft argument of the operation. 
ARG_DESC2 - points to the value descriptor representing the 


ht argument of the operatio 


ri 
RESULT_DESC - points to the value d 
of the operation. 


OUTPUTS 
The result value descriptor is filled in. 
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No value is returned. 


BEGIN 
ARG_DESC1 : REF DBGSVALDESC, 
ARG DESC2 : REF DBGSVALDESC, 
RESOLT_DESC : REF DBGSVALDESC: 
LOCAL 
RESULT_VALUE, 
VAL_DESC1 : DBGS$STG_DESC, 
VAL ~DESC2 : DBGSSTG_DESC, 
VALOE1, 
VALUE 2; 


escriptor representing the result. 


: Set up working variables. This way we don't mess up anything important. 
CHSMOVE (DBGSK_STG_DESC_SIZE, ARG_DESC1COBGSA_VALUE_VMSDESC], VAL_DESC1); 


CHSMOVE (DBGS$K_STG_DES 

VALUE! = + oARG_DESC1EDBGSL_VALUE_POINTER : 
VALUE2 = ,.ARG DESC2CDBGSL_VALUE POINTER); 
VAL_DESCILDSCSA_POINTER] ="VALUET; 
VAL-DESC2EDSCSA_POINTER] = VALUE2; 
DBGSNORMAL IZE_F IXED(VAL_DESC1); 
DBGSNORMAL I ZE“F IXED(VAL_DESC2); 


MATCH_F IXED_BINARYS(VAL_DESC1, VAL_DESC2); 
Do the add. 


RESULT_VALUE = .VALUE1 # .VALUE2; 
SCALE = .VAL_DESCICDSC$B_SCALE); 


' Has an overflow occured? 


C7SIZE; ARG_DESC2CDBGSA~VALUE~VMSDESC], VAL~DESC2): 


m5 
vos-000- 1er$ep-1986 2:47:01 EDEeuG. SRcSbBGL ANGOP. 039; 1 sey 


> 
z 


~~ 


ir giitre! 1a yALUE Sey - Q> NEQ .VALUEI< \. i. > AND 
ESULT-VALUE<31, 1, 0> NEQ .VALUE2<31, 1, 0> 


BEGIN 


; 38 .] 
3 0 
3 4 1 
8 1 
F 8 
; 03 4 IF -RESULT_VALUE<0, 1, 0> 
: 205 6 SIGNAL (DBGS_ IF LXUND) ; 
; 96 : RESULT VALUE = RESULT _VALUE * =1; 
: 208 9 RESULT _VALUE< 1. 1; O> = .VALUE1<31, 1, O>; 
Be 4 a 
>; 211 4g .RESULT_DESCCDBGSL VALUE POINTER] = .RESULT VALUE 
; 1g : RESULT_BESCCDBGSB_VALUE_DTYPE) = DSC$K_DTYPE_L 
; 13 o3es RESULT ~DESCCDBGS$B~ “VALUE “SCALE =  SEALES 
: 215 0346 1 END; 
0OFC 00000 ENTRY ha FIXED_FIXED, Save R2,R3,R4,R5,R6,R7 ; 
5 20 C8 90002 SUBL2 ; 
5 04 AC DO 0000 MOVL RG_DESC ; 
14 AE 14 A? 0C 28 00009 MOVC3 stre ~ _DESC1 : 
56 08 AC 00 0000F MOVL Ane. Sc ; 
08 AE 14 Ab OC 28 00013 MOVC3 O(RS) VAL_DESC2 ; 
6E 18 B7 DO 00019 MOVL a seeR$s VALUE1 ~ ; 
04 AE 18 B86 DO 00010 MOVL a 4tR6). VALUE2 : 
18 AE 6E 9E 00022 MOVAB VALUE1, VAL_DESC1+4 ; 
OC AE 04 AE 99E 00026 OVAB_ VALUE2, VAL~DESC2+4 ; 
14 AE 9F 00028 PUSHAB VAL _dESCI : 
0000v CF 01 FB 00 - CALLS “DBGSNORMALIZE_FIXED ; 
08 AE 9F 000 PUSHAB vAi _DESC ; 
0000v CF 01 FB 00036 CALLS ~DBGSNORMAL I ZE_FIXED ; 
08 AE 9F 000 PUSHAB vat _DESC ; 
18 AE 9F 000 : PUSHAB VAL~DESC ; 
0000v CF 0 Fe 004 CALLS #2, MATCH_FIXED_BINARYS ; 
52 6 04 AE g 0046 ADDL VALUE 2 VALUE ARESULT “VALUE ; 
1¢ AE 98 00048 CVTBL L DESC 1+ : 
0 03 A 1 07 EF 0004F EXTZV VALUE? CAL ERO F 
0 5 1 IF FD 208: CMP ZV a wt, RESULT_VALUE, RO ; 
50 07 (A 1 oF EF EXTZ2V #7, #1, VALUE2+3, RO : 
50 5 1 F 3 é CMP ZV #31, wi, RESULT_VALUE, RO ; 
0D g F 9 BLBC nies ty VALUE, 1$ : 
000000006 eeaeres \ Ht if CALLS LIBSSIGNA ; 
2 } FF F 78 , 1$ ASHI ft RESULT NVALUE, RESULT_VALUE ; 
0 03 AE 1 ; EF EXTZV “Hh vA UEls RO ; 
2 01 F OF INSV RO { 1 RESULT VALUE ; 
50 0c AC D 28: MOVL RESULT "SES : 
18 80 52 D F MOVL RESULT “VALUE, @24(RO) ; 
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; Routine Size: 156 bytes, Routine Base: DBGSCODE + 0022 
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GLOBAL ROUTINE DBGSC_ADD_TPTR_L (ARG1_DESC, ARG2_DESC, RESULT_DESC): NOVALUE = 
i FUNCTION 


This routine is called from DBGSPERFORM_OPERATOR to do the 
* operator in C when one of the arguments is a pointer. 


INPUTS 


ARG1_DESC = points to the value descriptor representing the left 
argument of the + operator. 
ARG2_DESC = points to the value descriptor representing the right 
arqunent of the + operator. 
RESULT_DESC = points to the value descriptor representing the result. 
f the + operator. | 


OUTPUTS 


VFN —OCONOUS WT" O0O~ 


The result value descriptor is filled in. 
No value is returned. 
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1 
BEGIN 
MAP 
ARG1_DESC : REF DBGSVALDESC, 
ARG2 DESC : REF DBGSVALDESC, 


RESUCT_DESC : REF DBGSVALDESC; | 


9 9 Stet tt ttt tet tr tee tet ttt ra tt ee 


LOCAL 
ARG1_IS_TPTR, ' TRUE if first arg is typed pointer 
ARG2_IS_TPTR, ! TRUE if second arg is typed pointer 
4 BITSTZE, ' Size in bits of pointed to object 
48 78 FCODE1, ' FCODE for first argument 
49 79 FCODE2, ' FCODE for second argument 
50 0 JUNK: VECTOR(4], ! Dummy output parameter 
51 1 SCALE, ' Scale factor in the operation 
26 +f SYMID ! Points to a SYMID 
5 8 TYPEID1, i Points to a TYPEID 
33 ae TYPEID2; ! Points to a TYPEID 
3$ $6 : Obtain a typeid and fcode for the first argument. 
58 38s TYPEID1 = .ARG1_DESC CDBGSL_DHDR_TYPEID); 
59 :] IF .TYPEID? EQ. 0 
60 30 T 
61 9 FCODE1 = 0 
oe 3 ELSE 
+ 2 FCODE1 = DBGSSTA_TYPEFCODE (.TYPEID1); 
65 95 Obtain a typeid and fcode for the second argument. 
$9 3 TYPEID2 = .ARG2_DESC CDBGSL_DHDR_TYPEID); 
68 38 IF .TYPEID2 EQL~O 
9 
0 FCODE2 = 0 
71 1 ELS 
7 ¢ FCODE2 = DBGSSTA_TYPEFCODE (.TYPEID2); 
7 040 
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14-Sep-1 DEBUG. SRC 
! One of the two arguments must be of type array or typed ey*arer 
: The other must be an integer. Set the flag ARGI_IS_TPTR if the 
! first argument is she one of type TPTR or array. Set the 
! flag ARGZ_IS_TPTR if the second argument is the one which is of 
type TPTR or array. 
iF gn et EQL RSTSK_TYPE_ARRAY OR .FCODE1 EQL RSTSK_TYPE_TPTR 
ARG1_IS_TPTR = TRUE 


ARG! 1s TPTR = FALSE; 
IF .FCODE2 EQL RSTSK_TYPE_ARRAY OR .FCODE2 EQL RSTSK_TYPE_TPTR 


ARG2_IS_TPTR = TRUE 

ARG2_IS_TPTR = FALSE; 
Ensure that exactly one of the flags is TRUE. 
IF .ARGI_IS_TPTR AND .ARG2_IS_TPTR 
THEN 


SDBG_ERROR ("DBGLANGOP\both args are pointer’); 
IF (NOT .ARGI_IS_TPTR) AND (NOT .ARG2_IS_TPTR) 


N 
SDBG_ERROR (*DBGLANGOP\DBGSC_ADD_TPTR_L neither arg is pointer’); 


' Obtain a SYMID which describes the type of the object that 
: the typed pointer points to. 


ir gARG1_1S_TPTR 
IF Cove! EQL RSTSK_TYPE_TPTR 
DBGSSTA_TYP_TYPEDPTR (.TYPEID1, SYMID) 
DBGSSTA_TYP_ARRAY (.TYPEID1, JUNKCOJ, SYMID, ! The JUNK parameters 
JUNKC1J, JUNKC2], JUNKC35) | must be distinct 


' addresses; see note 
i im RSTTYPES 


ELS 


ELSE 
IF .ARG2_1S_TPTR 


N 
IF .FCODE2 EQL RSTSK_TYPE_TPTR 
- DBGSSTA_TYP_TYPEDPTR (.TYPEID2, SYMID) 
DBGSSTA_TYP_ARRAY (. TYP 102, JUNK 91. SymID 
JUNKE1), JUNKCO), JUNKC34); 


' Obtain the bitsize of the object. The scale factor for the addition 
is in bytes, so convert to bytes. 


DBGSSTA_SYMSIZE ( SYMID BITSIZE); 
SCALE ="(.BITSIZE*7) / 8; 


Now perform the addition, scaling the appropriate operand. 
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JF cARGI_IS_TPTR 
HEN 


BEGIN 
RESULT DESCCDBGSL vA 

«SCALE * .ARG2-D 
RESULT_DESCCDBGSL_BH 
ELSE 

RESULT_DESCCDBGSL_ VALUE VALUEO) = 

«STALE * .ARG =PESEpDEG L VALUE VALUE) + 
oat ses 


A BGSL_VALUE VAL 
RESULT DESCCDBGSL_BH PEIDJ = ~ARG2_DESCEDBGSL_DHDR_TYPEID]; 


VALUE VALUEOJ; 
= 


LUE VALUEO] : 

g Stppee L VALUE .VALUEOY + 
ESCCDBGSL E 
DR_TYPEID = .ARG1_DESCLDBGSL_DHDR_TYPEID); 


75 


' Signal an informational message informing the user that scaling has 
: taken place. 


0 SIGNAL (DBG$_SCALEADD, 2, .SCALE, 

1 CIF ARG T 

¢ THEN UPLTT BYTE (ZASCIC ‘right") 
ie ELSE UPLIT BYTE (ZASCIC ‘left’ ))); 
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-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


68 74 6F 62 6 50 4F 47 4E 41 4C 47 42 46 1F 00000 P.AAA: .ASCII <31>\DBGLANGOP\<92>\both args are poin\ 3 
6—E 69 6F 70 20 65 72 61 20 73 67 72 61 20 0000F : 
72 65 74 00010 eASCII \ter\ : 
24 47 42 446 SC 39 4F 47 4E 41 4C 47 42 44 31 00020 P.AAB: ASCII \1DBGLANGOP\<92>\DBGSC_ADD_TPTR_L neithe\ ; 
65 6€ 20 4c SF 52 54 50 54 SF 46 44 4 $F 43 09 F : : 
65 74 6€ 69 6F 70 20 73 69 20 67 72 61 20 G0046 ASCII \r arg is pointer\ 3 
74 68 67 69 72 0 FF 4 P.AAC: .ASCII <5>\right\ 3 
74 66 65 6C 04 00058 P.AAD: ASCII <4>\Left\ ; 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
OFFC 00000 -ENTRY DBGSC_ADD_TPIR_L. Save R2,R3,R4,R5,R6,R7,- 3 0347 
R8,RO,RIO, R11 3 
8 9000000 G 00 9E 0000 MOVAB LIBSSIGNAL. R11 F 
A 00000000' €F 9€E 000 MOV P.AAA, R1 : 
18 C2 0001 SUBL2 #24, SP : 
04 aC D 1 MOVL ARG{_DESC, RS > 0388 
6 8 A p 1 MOVL B(RST, TYPEID1 : 
4 1B BNEQ : 0389 
8 D4 1D CLAL FCODE1 ; 0391 
:. 1F BRA : 
6 0D 1 1$ PUSHL TYPEID1 : 0393 
000000006 99 91 : 3 CALLS #1, DBGSSTA_TYPEF CODE : 
0 DO 0002A MOVL RO, FCODE1 ; 


jae Ne ease ea me Cage nt ae Go en age 


GLA 1h-s0 -1984 720: AX-11 Bliss-32 V4.0-74 
tae al 12-88-1938 93:40:30 DEBUG. SRCJDBGLANGOP.B32; 1 
4 AC D 28: MOVL  ARG2_DESC, R4 
34 88 AG 09 09 MOVL (R&T, TYPEID2 
2% BNEG 4 
7 06 CLRL ©—-: FCODE2 
GO GEER ss: BiBw Hoern 
000000006 99 j FB D CALLS #1, DBGSSTA_TYPEF CODE 
D 44 MOVL RO. FCODE 
01 D1 00047 4$ CMPL =s«&FCODE1, # 
p 13 0004A BEQL=SséSS 
06 : D1 0004¢ CMPL  FCODE1, #6 
2 if 0 GF BNEO 
59 1 0 1 5$: MOVL #1, ARGI_IS_TPTR 
é 11 0 4 BRB 
D4 000 6 68: CLRL —- ARG! 1S_TPTR 
01 7 01 00058 7$: CMPL « FCODE2, “#1 
05 13 00058 BEQL 
06 D1 00050 CMPL  FCODE2, #6 
05 if 900 BNEG 
52 1 00 00062 8s: MOVL #1, ARG2_IS_TPTR 
11 0006 BRB 10$ 
D4 00067 9$: CLRL ARG2_IS_TPTR 
13 E9 00069 10$ BLBC ARGI-IS“TPTR, 12$ 
0D 52 €9 0006C BLBC ARG2_IS_TPTR, 11$ 
SA 0D O06F PUSHL RI 
01 DD 00071 PUSHL 
00028362 8F DD 00073 PUSHL #164706 
68 03 FB 00079 CALLS #3, LIBSSIGNAL 
14 59 €8 OOO7C 11$:  BLBS  $ ARGI_IS_TPTR, 14$ 
OE 52 f OO7F 12$:  BLBS  ARG2~IS"TPTR. 13$ 
20 AA OF 0082 PUSHAB P.AAS 
01 oD 0008 PUSHL 
00028362 8F DD 00087 PUSHL #164706 
68 03 FB 90080 CALLS #3, LIBSSIGNAL 
1E 9 €9 00090 138:  BLBC ARG1_IS_TPTR, 168 
06 58 01 9009 148:  CMPL  FCODE1, "#6 
06 12 00% BNEQ 15 
4040 af 1) 009. PUSHR #MCRG, SP> 
14 AE 9F 000 PUSHAB JUNK*+12 
16 AE OF PUSHAB JUNK+8 
16 AE OF PUSHAB JUNK+4 
OC AE OF PUSHAB SYMID 
1 AE OF PUSHAB JUNK 
56 OD PUSHL TYPEID1 
11 BRB 19$ 
2A £9 BLBC ARG2 JS_1PTR, 208 
6 D1 CMPL F CODE , a6 
D 12 BNEQ si 
4008 8F BB PUSHR #*M<R3,SP> 
000000006 00 é Fe CALLS #2 DBGSSTA_TYP_TYPEDPTR 
18 1 BRB 20§ 
16 AE OF HAB JUNK+12 
146 AE OF PUSHAB JUNK+8 
16 AE OF PUSHAB JUNK+4 
o¢ AE 9F PUSHAB SYMID 
18 AE OF PUSHAB J 


F 6 
GLA 16=Sep-1 AX-11 Bliss-32 v4. P 12 
tae al 14- <8 =138¢ 9}: 9: 3 DEBUG. S bi SSpacancoe.os B32;1 mead), 
3 DD 0000 PUSHL . : 
000000006 00 8g FB rt] 19$: CALLS i Male TYP_ARRAY : 
2 2 oe hee eifsi — 
000000906 00 ; FB } CALL #. DBGSSTA_SYMSIZE ; 
50 A , : E ADDL » BITSIZE, = RO ; 0657, 
5 BE AE. BO OO0E movt a ae Re z 0464 
1 59 € ore BLBC_ ARGI_IS_TPTR °S, : 
53 AG : F MULL3 3¢(RE) cass R + 0466 
ee) ee ae ue 
10 11 001 BRB . : 04 
53 50 0 A g3 orp 21$ MULL3 gins) SCALE : 02? 
20 «Al 0 B44 gu MOV a 2cRa5eRS) $2881) : 047 
08 A6 8 A 06 11 MOVL  8(R4), (ROS > 047 
$ so ak Be Rolsy 228: BBC, ARG Is, rPTR. 23s 008 
04 11 001 BRB is : : 
51 58 AA (9E 00129 238: MOV R1 + 048 
PB Bie i Gee prnt.t te 
00028708 8F ODD 6 1 PUSHL #165643 F 
68 4 FB 00137 CALLS #4, LIBSSIGNAL : 
04 0013A RET : 


; Routine Size: 315 bytes, Routine Base: DBGSCODE + OOBE 


6 
IEREEHOE SRDS SES. SUSaEE Aah 33, 


The result value descriptor is filled in. 
No value is returned. 


BEGIN 
MAP 


14-Sep-19 DEBUG.SR 
re GLOBAL ROUTINE DBGSC_ADDRESS_OF (ARG_DESC, RESULT_DESC): NOVALUE = 
4 i FUNCTION 
4 i This routine is called from DBGSPERFORM_OPERATOR to do the 
rt } & operator in C. 
" i INPUTS 
i ARG_DESC - points to the value descriptor representing the argument 
: of the & operator. 
: RESULT_DESC - points to the value descriptor representing the result. 
r : of the & operator. 
i OUTPUTS 
i 
i 


ARG_DESC : REF DBGSVALDESC, 
RESOLT_DESC : REF DBGSVALDESC; 


LOCAL 
REGDESCR: DBGSREGDESCR; 


! FILL in the value field of the result value descriptor. Since we 
! used the DBGSPRIM_TO_ADDR routine to convert the ile ag | to 

' a value Seecrtoter address of the argument is already in 

i the VALUEO field of the input value descriptor. We thus only 

: need to copy this address. 


RESULT_DESCCDBGSL_VALUE_VALUEO] = .ARG_DESCCDBGS$L_VALUE_VALUEO); 
! Check for typeid of zero. This indicates that the argument was 
! not an identifier (it was instead the result of an expression), 
and therefore we cannot apply & to it. 
if -ARG_DESCCDBGSi_DHDR_TYPEID) EQL 0 

SIGNAL (DBG$_AMPERSAND) ; 
: Fill in the TYPEID field of the result, This typeid describes 
! the type “Potater to type x"', where X is the type of the 
argument. A routine in STTYPES builds this typeid for us. 


RESULT_DESCCDBGSL_DHDR_TYPEID) = 
DBGSTYPEID_FOR_TPTR (.ARG_DESCCDBGSL_DHDR_TYPEID)); 


! Check for result being a register. This is an error since you 
: cannot do & on a variable that is bound to a register. 


REGDESCR = DBGSSTA_ADDRESS_TO_REGDESCR (.RESULT_DESCCDBGSL_VALUE_VALUEO)); 
. »REGDESCR NEQ 0 


HEN 
SIGNAL (DBGS_ADDRREG, 1, .REGDESCRCDBGSB_REGD_REGNUM)) ; 


MN OOOO OOCOCOCO S3SZ OOO O00000 0000 


PROPRIPORIPOPOPOPOPONINOPOPPOPIPONONONIPOPUPININIPIPIPUDIPOPIPIPOPUNININIIY a a ot tt ot ss 


SH ee aera sh Ab Ab db dh Ab dh dh Ab Ab Ab Ab dh Ab ab dh ab ab Ah Ah Ah db ab aha 


SOOOSOSSGOCOOOOSCOCOOSCOOOSOOOOOSOOOOOOOOOOoOoOoOO 


—OO@w 


se 


H 6 
vos-000 1ec$ep-198e 12:40:01 — EdeeuG. SAcSDBGLANGOP.039; 1 oe 


: 613 tg 
5 614 4 RETURN; 
: 615 44 END; 
001¢ 000 -ENTRY DBGSC_ADDRESS_OF, Save R2,R3,R4 : 0485 
34 000000 06 00 9€ O08 MOVAB LIBSSIGNAL, RZ : 
AC 70 000 MOVQ = ARG DESC R2 : 0518 
20 A 6 A2 D MOVL 2(R2), $2(R3) : 
A p Ist (Re) + 0524 
00028F 38 BF DD 0001 PUSHL #167736 : 0526. 
4 1 FB 0001 CALLS #1, LIBSSIGNAL ; | 
08 Ae DD 00020 18 PUSHL 8(R2) : 0533 
000000006 09 Q FB 0 CALLS #1, DBGSTYPEID_FOR_TPTR : 
08 A g DO O002A MOVL R9 (R : | 
20 A3 DD 00 E PUSHL (r3) : 0538 
000000006 00 gi FB 00031 CALLS #1, DBGSSTA_ADDRESS_TO_REGDESCR : | 
0 o5 000 TSTL REGDESCR : 0539. 
19 13 O003A BEQL : 
7E 50 08 08 EF 0003¢ EXTZ2V #8, #8, REGDESCR, -(SP) > 0541 
1 DD 004 PUSHL : | 
00028F48 8F DD 00043 PUSHL #167752 : 
4 03 FB 00049 CALLS #3, LIBSSIGNAL ; 
04 0004C 2$: RET + 0544 


3; Routine Size: 77 bytes, Routine Base: DBGSCODE + O1F9 


6 
HeSeoct98s Q4:20:30  YAEGNY SLUGSSREwtsOn702 nae 


ret GLOBAL ROUTINE DBGSC_INDIRECTION (ARG_DESC) = 
ci of FUNCTION 
421 rt i This routine is called from DBGSPERFORM_OPERATOR to do the 
: ¢ , * operation in C. 
4 4 : | INPUTS 
& 4 i ARG_DESC - points to the value descriptor representing the argument 
: $ ; 5 } of the indirection operation. ’ . - 
é § $ ; OUTPUTS 
431 5 | i A ae Descriptor is constructed out of temporary memory representing 
4 ¢ 60 : the result of the indirection. A pointer to this Primary Descriptor 
. 2 : is returned. 
4 5 568 : BEGIN 
: ARG_DESC : REF DBGSVALDESC; 
CAL 
ADDRESS ! Address of pointed-to object 
ARG_TYPEID, i TYPEID for argument 
FCODE, ' FCODE for argument 
JUNK: VECTOR(4), ! unused output parameters 
RESULT_TYPEID; ! TYPEID for result 


: Determine whether the object is a typed pointer or an array. 


ARG_TYPEID = .ARG_DESCCDBGSL_DHDR_TYPEID); 
FCOBDE = DBGSSTA_TYPEFCODE(.ARG_TYPEID); 


! Given the argument TYPEID, obtain a tyeete for the pointed-to 
: object. A new typeid will be created for this anonymous object. 


if .FCODE EQL RSTSK_TYPE_TPTR 


DBGSSTA_TYP_TYPEDPTR (.ARG_TYPEID, RESULT_TYPEID) 
ELSE IF .FCODE EOL RSTSK_TYPE_RRRAY 


N 
DBGSSTA_TYP_ARRAY (.ARG_TYPEID, JUNKCOJ, RESULT_7TYPEID, 
ae AUNRLYD” JUNK Doe JUNE ESS) = 
SDBG_ERROR ("DBGLANGOP\DBGSC_INDIRECTION arg must be pointer or array’); 
Determine the address of the object. The value of the pointer 
is the address of the pointed-to object. We have already checked 
that the argument is of type ‘‘pointer’’, $9 we assume its longword 
value is sitting in the normal “VALUEO" field of the descriptor, 
and we don't bother to do any further type checking, type conversions, 
bitfield extractions, or whatever. 


] 
i 
i 
; 
' 
ADDRESS = .ARG_DESCCDBGSL_VALUE_VALUEO); 


NN Re ee eotntntetntetett tbo ot ee 
at 
PROPRIO PORPORIPORINOROPORIPONOPONIPONOPOPOPOPUPONOPONORINUPOPUPTURNUNINUIY tt tt 


Be Se Se Oe Be Se Se Se Fe Ge Be Se Ge Be Ge Se Fe Ge Se Ge Se Fe Ge Se Se Ge Fe Se Ge Ge Se Se Ge FH Se Se Se Ge Ge Se Se Ge Se Se Se Se Ge SH Se Ss Se Ge Se Se Se eee 


1b-sep-1984 93:49:30 AX-11 ett s-32 V4.0-74 Page 16 


14-Sep-1 DEBUG. SRC JDBGLANGOP .832;1 (6) 
§ ! Convert this TYPEID to a Primary, and return a pointer to this 
: Primary. 
5 RETURN DBGSTYPEID_TO_PRIMARY (.RESULT_TYPEID, . ADDRESS); 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


246 47 42 66 SC 50 4F 47 GE 41 4C 47 42 44 3 5D P.AAE: .ASCII \8DBGLANGOP\<92>\DBGSC_INDIRECTION arg m\ ; 
gi 30 ck ce 26 be ek tS 8S ob ak i i i : p ec oo “a : 
20 72 65 74 6E 69 6F 70 20 65 0 7% 75 0007F -ASCII \ust be pointer or array\ : 
wo 0 $3 $3 £9 55 58 dF Beene a ~ : 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
000¢ 00 .ENTRY DBGSC_INDIRECTION, Save R2.R3 : 0545 
5 14 cS a002 SUBLo #o0. SP on 
5 04 AC 00 0000 MOVL ARG DESC, R2 + 0577 
4 08 A2 D0 00009 MOVL 8(R2), ARG_TYPEID : 
53 DD 00000 PUSHL  ARG_ : 0578 
000000006 00 gi FB OOOOF CALLS #1, DBGSSTA_TYPEF CODE : 
06 0 D1 00016 CMPL CODE, #6 : 0583 
op 12 00019 BNE F | 
4008 8F BB 0001B PUSHR #*M<R3,SP> : 0585. 
000000006 00 02 FB OOO1F CALLS #2, DBGSSTA_TYP_TYPEDPTR : 
4 11 00026 SRa 3 3 
01 50 01 00 8 1$ CMPL FCODE, #1 : 0586 
1A 12 00028 BNEQ = 28 ; 
10 AE 9F 0002D PUSHAB JUNK+12 : 0589) 
10 AE OF 90 PUSHAB JUNK+ : 
10 AE 9F 000 PUSHAB JUNK+4 : 
OC AE 9F 000 PUSHAB RESULT_TYPEID : 0588 | 
14 AF 9F 00039 PUSHAB JUNK ; 
53 od 0003C PUSHL ARG_TYPEID ; 
000000006 00 06 FB 000 CALLS #6, DBGSSTA_TYP_ARRAY : 
15 11 0004 BRB 3$ : 
00000000' EF 9F 00047 2$: PUSHAB P.AAE + 0591 
1 DD 00040 PUSHL ; 
00028362 8F DD 0004F PUSHL #164706 : 
000000006 00 FB 35 CALLS @ L 1BSS1GNAL : 
50 20 A2 v0 0005C 3s: MOVL  32¢R2), ADDRESS : 0600 
50 DD 9 PUSHL ADDRES : 0605 | 
04 AE DD 0006 PUSHL RESULT TYPEID : 
0000v CF 02 FB B26 CALLS #2, DBGSTYPEID_TO_PRIMARY 3 
04 6A RET 3 


3 Routine Size: 107 bytes, Routine Base: DBGSCODE + 0246 


voe-000 We$eocl9RE Q4G0:90  YASGNE S4USGGBEAttab26 tea 


ry 7 GLOBAL ROUTINE DBGSC_PRE_DECR_TPTR (ARG_DESC) = 
; 4 g 1 | FUNCTION 

; 4 i! 

; 6 1 BEGIN 

; 485 \§ P 

i 4 13 ARG DESC: REF DBGSVALDESC; 

; 6 15 END; 


0000 00000 .ENTRY DBGSC_PRE_DECR_TPTR, Save nothing ; 0607 
50 04 00002 CLRL = RO ; 0615 
04 00004 RET : 


; Routine Size: 


5 bytes, Routine Base: DBGSCODE + 0281 


; Routine Size: 


G 
i 
i 
i 


f 


5 bytes a 


ihe 


Sep-1 
~Sep-1 


LOBAL ROUTINE DBGSC_PRE_INCR_TPTR (ARG_DESC) = 


: FUNCTION 


BEGIN 
ARG_DESC: REF DBGSVALDESC; 
END; 


0000 
50 D4 
04 


Routine Base: DBGSCODE + 02B6 


00 
000 


00004 


8c 12:99:59 — Ebteus. SacSbaacancor.035. 1 


z@eove 


EN 
LR 
ET 


TRY D 
L R 


thee ee itt: Save nothing 


Page 18. 


(8) 


“1382 93:99:59 ORs. Bh SSeee ance 


4 
-0 32;1 
; 01 5 } GLOBAL ROUTINE DBGSC_SIZEOF (ARG_DESC) = 
3 : ; i FUNCTION 
; be § 1 This routine is called from DBGSPERFORM_OPERATOR to do the 
: 05 » } } SIZEOF operation in C. 
; oF j i INPUTS 
; 509 634 1 | ARG_DESC - points to the value descriptor representing the argument 
; 19 5 : } of the SIZEOF operator. 
i 31g 6 : } | outputs 
: 514 0639 1 / The return value is the result of the SIZEOF operation. This result 
: i ‘sae : } is the size in bytes of its argument. 
; 9 0646 "BEGIN 
; 518 Bee Pp 
: 238 oees ARG_DESC : REF DBGSVALDESC; 
; 521 D646 LOCAL 
3 2 ¢ poet BIT_SIZE; ! Size in bits of the argument 
; 3 ¢ + ¢4 Try obtaining the size from the SYMID. 
; 326 0681 iF .ARG_DESCCDBGSL_DHDR_SYMIDO] NEQ 0 
; 526 0358 DBGSSTA_SYMSIZE (.ARG_DESCCDBGSL_DHDR_SYMIDOJ, BIT_SIZE) 
: 386 8932 Try obtaining the size from the TYPEID. 
; 332 0657 ELSE IF .ARG_DESCCDBGS$L_DHDR_TYPEID) NEQ 0 
; 334 0658 DBGSSTA_SYMSIZE (.ARG_DESCCDBGSL_DHDR_TYPEID], BIT_SIZE) 
; 534 0661 Try obtaining the size from the VMS descriptor. 
; 5 bees ELSE IF .ARG_DESCCDBG$B_DHDR_FCODE) EQL RSTSK_TYPE_ATOMIC 
; 223 2008 . OR .ARG_DESCLDBGSB_DHDR_FCODEJ EQL RSTSK_TYPE_DESCR 
; a) BIT_SIZE = DBGSDATA_LENGTH (ARG_DESCCOBGSA_VALUE_VMSDESC)) 
: re 3 ! If the value descriptor did not have a symid or a typeid, and 
> 344 ! it was not an atomic or vax-standard descriptor type, then 
; 545 i we are unable to determine the bit size. This situation should 
: rh 4 } not arise, so we signal an error. 
; 548 ? ELSE 
; $3 eR SDBG_ERROR (*DBGLANGOP\DBGSC_SIZEOF cannot determine bitsize: typeid lost"); 
: 31 6 : Return the size in bytes. 
; 34 67 RETURN .BIT_SIZE / 8; 
3 6554 7 END; 


-PSECT 


6 47 42 66 SC SO GF 47 GE 41 4C 47 42 44 3 00 P.AAF: ASCII 
4 6F 6EF 6€ 61 63 20 46 4F 45 SA 49 3 iy 4 OAs 
3A 65 7A 69 73 76 69 20 65 6& 69 6D 72 008 ASCII 
$2 R 6F 6C $8 64 69 gf 3 $p 74 $ yd 
.PSECT 
0004 000 ENTRY 
5E 04 ¢2 0000 SUBL2 
é 04 AC 00 0000 MOVL 
0c hs D5 00009 TSTL 
9 13 0000¢ BEQL 
E DD 0000 PUSHL 
ant ce 
08 A2 D3 9001 1$: TSTL 
OE 13 00018 BEQL 
DD OOO1A PUSHL 
08 A2 DD O00IC PUSHL 
000000006 00 ; Fe O01F 2%: CALLS 
- ee Bee ee 
s oie of 
16 A2 OF 900 4$: PUSHAB 
000000006 00 gi FB 90 7 CALLS 
3 11 booes BRB 
00000000' i i 00043 5$: PUSHAB 
00028362 8F ODD ries PUSHL 
omer OB 
64 0005c RET 


3; Routine Size: 93 bytes, Routine Base: DBGSCODE + 0288 


“9 
vOs-000 1e=Sep-198e f2:t7:01 — EDeaUG. SRCSDBGLANGOP 65 
DBGSPLIT,NOWRT, SHR, 


\<DBGLANGOP\<92>\DBGSC_SIZEOF cannot det\ 


\ermine bitsize: typeid lost\ 


DBGSCODE,.NOWRT, SHR, 
DBGSC_SIZEOF, Save R2 


#4, § 
ARG_DESC, R2 
12(R2) 


ven 


R2) 
#2, DBGSSTA_SYMSIZE 
6(R2), #2 
6$ 

(R2), #3 


20(R2) 
#1, DBGSDATA_LENGTH 
RO, BIT_SIZE 


6$ 

P.AAF 

#1 

#164706 

He LIBSSIGNA’ 
#8, BIT_SIZE, RO 


rom 


7 

GLA 1b-se -1984 01:20: AX-11 Bliss-32 V4.0-74 Pa | 
vive hal 12-88-1382 94:99:30 DEBUG. SRCIDBGLANGOP.B3 37 att 
GLOBAL ROUTINE DBGSC_SUB_TPTR_L (ARG1_DESC, ARG2_DESC, RESULT_DESC): NOVALUE = ; 
FUNCTION 


This routine is called from DBGSPERFORM OPERATOR to do the 
= operator in C when one of the arguments is a pointer. 


INPUTS | 
ARG1_DESC = points to the value descriptor representing the left 
argument of the = operator. 

ARG2_DESC = points to the value descriptor representing the right | 


oh eige of the = operator. 
RESULT_DESC = points to the value descriptor representing the result. 
of the = operator. 


OUTPUTS 


The result value descriptor is filled in. 
No value is returned. 


SUR AR CoO oe Ge 
easeseasesese enacts 


FUPVSVIVSVSUSUSISISTSI SISSIES 
BLINN ISo eS 
Bt 
QESRENLS SS 
POR PROPORRORURORORORURRUNI LILI EPOPORIPPURORPURIRPURINNINRNINII 8 8 a at at ss 
@ 
mm 
at) 
ts 
>> = 
a 


G1_DESC : REF DBGSVALDESC, 
2_DESC : REF DBGSVALDESC, 
RESUCT_DESC : REF DBGSVALDESC; 


BN SOOO 
oo 
o 


OCAL 
BITSIZE, 
FCODE1, 
JUNK: VECTOR(4), 
SCALE 
SYMID Points to a SYMI 
TYPEIO1; Points to a TYPEID 
Obtain a typeid and fcode for the first argument. 


TYPEID1 = .ARG1_DESC CDBGSL_DHDR_TYPEID); 
ae EQ. 0 


Size in bits of pointed to object 
FCODE for first argument 

Dummy output parameter 

Scale factor in ee operation 


S 


SQN 


ab ad Ro A SD et 


UENO OOO UNE WN “OO 0OONO UE WO 


BSELESEALLESELERE 


BEGIN 
Pee ne ERROR ("DBGLANGOP\DBGSC_SUB_TPTR_L no typeid for first arg’) 


ELSE 
FCODE1 = DBGSSTA_TYPEFCODE (.TYPEID1); 


!' Obtain a SYMID which describes the type of the object that 
the typed pointer points to. 


if fF cover EQL RSTSK_TYPE_TPTR 
aa DBGSSTA_TYP_TYPEDPTR (.TYPEID1, SYMID) 
DBGSSTA_TYP_ARRAY (.TYPEID1, JUNK EQ), Symi 
JUNKC1}; JUNKE2); JUNKC$)); 


! Obtain the bitsize of the object. The scale factor for the addition 


PUP DDD PPA A AAAAAMAAMVI 


Bese o Ress 


SOOOSOSSOOSOOSOOCOSOOOOOOOSOOOSOOOOOOOOoOOoOoOoOO 


Sb Re in Mn ie i ee ee 


oon 
— 2 
NO 


it 


ae 
16-Sep-1984 91:20: 30 ee) Bliss-32 veae O35. 1 


Page 22 
14-Sep-1984 DEBUG. SRC JDBGLANGOP .B . 8s 


3 $13 7 } is in bytes, so convert to bytes. 

: 615 7 DBGSSTA_SYMSIZE (.SYMID, BITSIZE); 

b ei$ fh SCALE = tei tsizes?) / 8; 

: 618 rae ! Now perform the subtraction, scaling the second operand. 

: 620 744 RESULT_DESCCOBGSL_VALUE VALUEO] = 

; 621 745 »ARGT_DESCLDBG%L_VALUE_VALUEO) = 

a ¢ ms ~SCALE * .ARG2 DESCLDBGSL_VALUE VALUEO); 

; ? Z oe RESULT_DESCCDBGSL_BHDR TY¥PEIDI = ARG1_DESCEDBGSL_DHDR_TYPEIDI; 
3 625 74 ! Signal an informational telling the user that a scale factor 
5 . $ 731 : was applied. 

; 628 138 SIGNAL (DBGS_SCALESUB, 2, .SCALE, UPLIT BYTE(ZASCIC ‘right argument')); 
; 629 75 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


on a2 ea ao 33 90003 P.AAG: .ASCII \2DBGLANGOP\<92>\DBGS$C_SUB_TPTR_L no typ\ ; 
50 54 SF 42 55 53 SF 43 OO0E2 : 
70 79 7% 20 OOF1 : 
72 20 64 69 $3 sth ASCII \eid for first arg\ : 
20 67 69 $5 OE 00106 eASCII = <14>\right argument\ 3 
.PSECT DBGSCODE,NOWRT, SHR, PIC,0 
1¢ 00000 .ENTRY DBGS$C_SUB_TPTR_L, Save R2.R3.R4 ; 0680 
000000006 99 9€ 0000. MOV LIBSSTGNAC, R4 : 
18 C2 000 SUBL2 #24, SP ; 
06 AC 00 0000C MOVL  ARGI_DESC, R3 : 071 
08 A3 00 00010 MOVL  &(R33, TYPEID1 : 
13 12 00014 BNEQ 1 > 071 
00000000" EF 9F 0 16 PUSHAB P.AAG : 072 
1 DD 0001C PUSHL ; 
00028362 8F DD OOOTE SHL #164706 : 
64 3 FB 4 CALLS #3, LIBSSIGNAL : 
3 1 7 RB ; 97 0 
DD PUSHL TYPEID1 : 0724 
000000006 90 1 FB CALLS #1, DBGSSTA_TYPEF CODE : | 
0». CMPL = FCODE1, #6 : 0729 
D 12 BNEQ 3$ ; 
4006 8F 8B PUS AM<R2,SP> > 0731 
000000006 00 0 Fe CALLS #2. DBGSSTA_TYP_TYPEDPTR 
16 AE OF PUSHAB JUNK+12 > 0734) 
16 AE OF 7 PUSHAB JUNK+8 ; | 
16 AE OF A PUSHAB JUNK+4 ; 
o¢ AE 9F PUSHAB SYMID : 0733 
AE OF PUSHAB JUNK : 
52 DD PUSHL TYPEID1 ; 


; Routine Size: 157 bytes, Routine Base: DBGSCODE + 0318 


18-56 -Sep-1 
14-Sep-1 
000000006 00 06 FB 5 

alo 
noo eR 
; Q AC D $ 
wat: 
oi gt @ REBR 

68 Al A 

00000006" F oF 4 
: i 
00028713 F 0D ° 93 
64 4 FB 00099 
04 0009C 


382 93:99: DEBUG. SRCTDBGLANGOP.049; 1 


aie TYP_ARRAY 


TA_SYMSIZE 
Ze, RO 


| 6-50 , 
tae al 1 ~300-138¢ 93:40: 30 Per eue Bliss-32 V4.0-74 Pose ft 


14-Sep-1 EBUG. SRC JDBGLANGOP.832;1 
; 6 1 r : } GLOBAL ROUTINE DBGSC_SUB_TPTR_TPTR (ARGI_DESC, ARG2_DESC, RESULT_DESC): NOVALUE = 
; £ : 16 i FUNCTION 
; 635 758 This routine is called from DBGSPERFORM_OPERATOR to do the 
; : P28 : = operator in C when both of the arguments are pointers. 
; 638 rey i INPUTS 
: 640 8 1 ARG1_DESC = points to the value descriptor representing the left 
; 641 764 1! argument of the = operator. 
; 046 765 1! ARG2_DESC = points to the value descriptor representing the right 
; 646 roe ,! argument of the = operator. 
3 6446 767 1! RESULT_DESC = points to the value descriptor representing the result. 
3 ot 708 : } of the = operator. 
ee ea 
3 649 772 1: The result value descriptor is filled in. 
; 650 775—(«1 No value is returned. 
; «6651 0774 1! 
3 $26 148 BEGIN 
: 654 $999 ARG1_DESC : REF DBGSVALDESC, 
; 655 ree ARG2_ DESC : REF DBGSVALDESC, 
; $26 44s RESUCT_DESC : REF DBGSVALDESC; 
: 658 $783 LOCAL 
; 659 34-04 ARG1_IS_TPTR, ! TRUE if first arg is typed pointer 
; 660 078 ARG2_1S_TPTR, ' TRUE if second arg is typed pointer 
: 661 0784 BITSTZET, ! Size in bits of pointed to object 
3 666 0785 BITSIZE2, ! Size in bits of pointed to object 
; 66 $7 FCODE1, ! FCODE for first argument 
; 664 78 FCODE2, ! FCODE for second argument 
; 665 $44 JUNK: VECTOR(4), ' Dummy output parameter 
; 666 789 SCALE ' Scale factor in the operation 
: 667 9790 SYMIDI, i Points to a SYMID 
; 668 791 SYMID2 ' Points to a SYMID 
> 669 079¢ TYPEID{, i Points to a TYPEID 
: 670 4s, TYPE ID2; ! Points to a TYPEID 
; 67 oe Obtain a typeid and fcode for the first argument. 
3 674 599 TYPEID1 = ARG! DESC CDBGS$L_DHDR_TYPEID); 
: 675 798 1 TYPEIDI EQL 
: 87 0800 BEGIN | 
; 678 91 SDBG_ERROR ("DBGLANGOP\DBG$C_SUB_TPTR_TPTR no typeid for first arg’) 
; 680 308 ELSE 
; ptt : FCODE1 = DBGSSTA_TYPEFCODE (.TYPEID1); 
; $58 : Obtain a typeid and fcode for the second argument. 
3 685 o8 TYPEID2 = ARG2_DESC CDBGSL_DHDR_TYPEID); 
; 09 LF gTYPEIDe EQL 


Rg eae = Gece Rae ime go ee 


GLA -Sep- 720: - = -0- 
vous008 eagep= 198s 13:99:01 EbkauG. SkcSopecancor.035; 1 Page 493 
$p8G ERROR (*DBGLANGOP\DBGSC_SUB_TPTR_TPTR no typeid for second arg’) 


ELSE 
FCODE2 = DBGSSTA_TYPEFCODE (.TYPEID2); 


Both arguments must be of type array or TPTR. 
if gn Ome NEQ RSTSK_TYPE_ARRAY AND .FCODE1 NEQ RSTSK_TYPE_TPTR 


BEGIN 
$DBG_ERROR ("DBGLANGOP\DBGSC_SUB_TPTR_TPTR second arg is not ptr’) 


IF. F CObE2 NEQ RSTSK_TYPE_ARRAY AND .FCODE2 NEQ RSTSK_TYPE_TPTR 


BEGIN 

en ("DBGLANGOP\DBGS$C_SUB_TPTR_TPTR second arg is not ptr’) 
! Obtain a SYMID which describes the type of the object that 
the typed pointer points to. 
iF .FCODE1 EQL RSTSK_TYPE_TPTR 


WN —O OONAVES UN “"OOOVOuU fur 


710 


APAACACAAQO 
3333s SSSSSESSSSES% 
OOCOCCCCOCOCOCOCOCOOCOCOOCOCOOCOOCOCOOCOO 


Go 6d Cd C9 09 Od C9 Co CD 
NA AIP POPOPOPOPUR PUN 2 es 


1 

33 - DBGSSTA_TYP_TYPEDPTR (.TYPEID1, SYMID1) 

1 8 $ DBGSSTA_TYP_ARRAY (.TYPEIDI, JUNK EOD, SYMID1 

1 838 JUNKC1); JUNKC2); JUNKC34); 

' 839 IF .FCODE2 EQL RSTSK_TYPE_TPTR 

84 + DBGSSTA_TYP_TYPEDPTR (.TYPEID2, SYMID2) 

2 84 DBGSSTA_TYP_ARRAY (. TYPEID2, JUNK EQ], SvMiD2 
JUNKC1), JUNKC2]. JUNKC34); 


Check for compatible pointers (7?) 


REE e 


i CC Ceeceececceeceeoesessoecan Ketan emo owe me 


! Obtain the bitsize of the objects. The scale factor for the addition 
is in bytes, so convert to bytes. 


DBGSSTA_SYMSIZE (.SYMID1, BI 
DBGSSTA-SYMSIZE (.SYMID2, BI 
IF .BITSIZE1 NEQ .BITSIZE2 


SIGNAL (DBG$ +) wie ah 
SCALE = (.BITSIZE1+7) / 8; 
if -SCALE EQL 0 


TSIZE1); 
TSIZE2); 


OOCOCOCOCOOOoOoCoOSoooSo 


VWEWN 0 OOVNOV SW —OOO NOU fw 
‘Co 09 GS Cd Go Co Co 


PPAAMDMAIT 


OWONAUE WN OO OONOUS WN —O 


Sa Bi Bi in in in, i in, i an, yy Py My ye > i ie i i be | 


N 
SDBG_ERROR (*DBGLANGOP\DBGSSUB_TPTR_TPTR scale factor of zero’); 
Now perform the subtraction, scaling the result. 


RESULT_DESCCDBG$L_VALUE_VALUEO) = 
caaee | pest DBG$L_VALUE_VALUEO] - .ARG2_DESCCDBGSL_VALUE_VALUEO]) / 


i nt) 
-—OoO 
OOOO OOOoOOooOSoOo 
WMFwn— 


& 


18- Sept 1384 9}: $9: 39 AX-11 Bliss-32 V4.0-7 
14-Sep-1984 DEBUG. SRC RCSDBGLANGOP .85 B32;1 


! Signal an informational telling the user that scaling was applied 
to the result. 


SIGNAL (DBGS_SCALESUB, 2, «SCALE, UPLIT BYTE (ZASCIC ‘result")); 


68 


8 
ff 
a 
& 2 
is 
61 2 

47 4 

33 a 
63 6 

20 $6 
47 <3 
7. OF 

63 65 
20 gs 
47 ‘3 
SF 4 

# ff 
e 


00028362 


SNA MANAVE UNOS 


GOWWOO"S 


—DOO*MMNOVIOWDS Sv OONOOUNS fwwn— 
DOWOY NOLMNOWEL OMG OF ODONIWEM 


P. AAI: 


P.AAJ: 


P.AAK: 


P.AAL: 


P.AAM: 


P.AAN: 


»PSECT 
ASCII 


ASCII 
ASCII 


ASCII 
-ASCII 


ASCII 
ASCII 


DBGSPLIT,NOWRT, SHR, PIC,0 
\SDBGLANGOP\<92>\DBG$C_SUB_TPTR_TPTR no \ 


\typeid for first arg\ 
\6DBGLANGOP\<92>\DBG$C_SUB_TPTR_TPTR no \ 


\typeid for second arg\ 
\3DBGLANGOP\<92>\DBG$C_SUB_TPTR_TPTR sec\ 


\ond arg is not ptr\ 
\3DBGLANGOP\<92>\DBG$C_SUB_TPTR_TPTR sec\ 


\ond arg is not ptr\ 
\ODBGLANGOP\<92>\DBGSSUB_TPTR_TPTR scale\ 


\ factor of zero\ 
<6>\result\ 


DBGSCODE.NOWRT, SHR, PIC,0 

p G$C_SUB_TPTR_TPTR, Save R2,R3,R4,R5,R6,- 
R8-RO,R10,R 
Dees Sta_fyP fYPEDPTR, R11 

DBGSSTA-TYPEF CODE, R10 

I $5 1GNAL. RB 


Ang! BESC 
B(RDT, att 


n3 

#164706 

#3, LIBSSIGNAL 
TYPEID1 


roe 


4 7 
1e-$ee7 198s 93:99:39 HORSUG. Bhi sseee aNcoe 645.1 Poge 47) | 


A 1 Ff i CALLS #1, DBGSSTA_TYPEF CODE : 
H at bo bodeS 25 MOVE ARG? bese. RG : 0808 
2 3 AG OD ts MOVL BRST, TYPE ID2 : 
10 1 4A EG § : 9809 
36 «AD «OOF «0004C PUSHAB P.AAJ + 0812 
1 DD 0004F PUSHL ; | 
00028362 8F ODD j PUSHL #164706 ; 
£8 Fe CALLS #3, LIBSSIGNAL : 
11 0005A BRB 43 + 0811) 
DD C 3$: PUSHL TYPEID2 > 0815 
ga 1 Fe 0 F CALLS #1, DBGSSTA_TYPEFCODE : 
5 : D 6 MOVL RO E2 : 
01 5 D4 0064 4$: CMPL  FCODET, #1 + 0819 
13 13 00067 BEQL : 
06 57 Di 00069 CMPL FCODE1, #6 : 
OE 13 0006C BEQL 3 
6D AD OF 06 PUSHAB P.AAK + 0822 
01 DD 000 PUSHL ; 
00028362 8F DD 0007 PUSHL #164706 ; 
68 03 FB 000 CALLS #3 L IBSSIGNAL ; 
01 6 01 0007C 5$: CMPL = FCODE2, #1 + 0824 
14 13 OO07F BEQL : 
06 56 D1 00081 CMPL  FCODE2, #6 : 
OF 13 0084 BEQL © 6$ : 
00A1 C9 9F 000 PUSHAB P.AAL + 0827 
1 DD 0008A PUSHL : 
00028362 8F DD 0008 PUSHL #164706 ; 
68 03 FB 0009 CALLS #3, LIBSSIGNAL ; 
06 57 D1 00095 6$: CMPL FCODE1, #6 + 0833) 
09 12 00098 BNEO : | 
4008 8F BB OO09A PUSHR #*M<R3,SP> > 0835 
02 FB 0009 CALLS #2, DBGSSTA_TYP_TYPEDPTR : | 
18 11 OOOA1 BRB 8S ; 
1¢ AE 9F 000A3 7S PUSHAB JUNK+12 : 0838 
1C AE 9F O00A6 PUSHAB JUNK+8 : 
1¢ AE 9F 000A9 PUSHAB JUNK+4 : | 
OC AE 9F OOOAC PUSHAB SYMID1 : 0837 
20 AE OF OOCAF PUSHAB JUNK : 
53 Dd 00082 PUSHL TYPEID1 ; 
000000006 00 6 FB 000B4 CALLS #6 DRGSSTA_TYP_ARRAY : | 
06 6 pI OBB 8$: CMPL  FCODE2, #6 : 0839. 
OA 12 0008 BNEG 9S : 
04 AE OF 000C PUSHAB SYMID2 > 0841 | 
52 Dd 000C PUSHL TYPEID2 : 
6B 0 4 OC CALLS a DBGSSTA_TYP_TYPEDPTR 3 
18 1 99¢ BRB 10§ ; 
1 AE 9F OOOCA 9S PUSHAB JUNK+12 > 0844 | 
1¢@ AE i ¢ PUSHAB JUNK+8 ; 
1¢ AE 9F 0000 PUSHAB JUNK+ ; | 
10 AE 3 D PUSHAB SYMID2 : 0843 
20 AE OF PUSHAB JUNK : 
52 DD 0000 PUSHL TYPEID2 : 
000000006 00 06 FB 000D CALLS #6, DBGSSTA_TYP_ARRAY F | 
08 AE 9F OOOE2 10$:  PUSHAB BITSIZE1 > 0853. 
4 AE DD 000E PUSHL SYMID : | 
000000006 00 02 FB OO0E CALLS #2, DBGSSTA_SYMSIZE : 


— dosen-1964 1:20:30 Yayeh) BLigg-32 40-742 


1 
1 
of AE or ef PUSHAB Binge 
000000006 00 05 F rg CALLS DBGSSTA SyMsIZE 
C AE 08 3 : OF cAPL offs! E1, BITSIZE 
00028F30 8F DD 001 PUSHL #167728 
68 1 FB 001 CALL a, LIBSSIGNAL 
59 08 AF 7 1 0010C 118 ADDL3 = #7, BITSizEI RO 
5 8 ; 11 Div #3 RO, SCALE 
fF 12 113 E 12$ 
0005 ft oD bOttb <r al tae 
00028362 8F ODD 119 PUSHL #164706 
68 3 FB 001 CALLS #3, LIBSSIGNAL 
5 C AC dO 00126 128 MOVL RESULT _D s¢ RO 
51 20 A 0 A& C3 O012A SUBL3 32(R4)> 32(R5), RI 
20 AO 51 3 g 1 0 DIVL3. SCALE, Ri, 32(RO) 
0106 : F 001 PUSHAB P.AAN 
DD 00139 PUSHL SCALE 
DD 001 PUSHL 
00028713 8F DD 001 Q PUSHL #165651 
68 4 FB 0014 CALLS #4, LIBSSIGNAL 
04 00146 RET 


; Routine Size: 327 bytes, Routine Base: DBGSCODE + 0385 


8 
% 


ee | 
PAAAIIUIUIS 
SSeS RS 


“nw 
o 
— 


GLOBAL ROUTINE DBGSDIV_FIXED_FIXED (ARG_DESC1, 


FUNCTION 


i INPUTS 
i ARG_DESC1 
ARG_DESC2 
RESULT_DESC 


i QUTPUTS 


1B-se0-1984 1:20:30 Yanan? BLiggc32 v4.0-743. 


ARG_DESC2, RESULT_DESC): NOVALUE = 


This routine is called to perform the divide operation 
on a scaled binary variable. 


oints to the value descriptor representing the 


eft argument of the operation. 


- peints o the value Gener cocer representing the 
on. 


ht argument of the operat 


ad potnts to the value descriptor representing the result. 


of the operation. 


The result value descriptor is filled in. 
No value is returned. 


S 


SSSSSSSS 


ERIMOPUNINININPYNININS 2 OO OO oe 


SOWNOVUE UN —OOONOAUS WN O@ 


BEGIN 
ARG_DESC1 : REF DBGSVALDESC, 
ARG DESC2 : REF DBGSVALDESC, 
RESOLT_DESC : REF DBGSVALDESC: 
LOCAL 
RESULT _VALUE, 
SCALE, 
SIGN. 
TEMP “RESULT : VECTOR [4,LONG), 
TEMP~VAL1 : VECTOR [4.LONG), 
TEMP~VAL2 VECTOR £4.LONG), 
TEMP” DESC : DBGS$STG_DESC, 
VAL_BESC1 : DBGS$STG-DESC, 
VAL DESCe : DBGS$STG-DESC, 
vALOE 
VALUE2: 


: Set up working variables. This way we don't mess up anything important. 
CHSMOVE (DBGSK_ STG_DESC_SIZE, ARG_DESCICOBGSA_VALUE_VMSDESC], VAL_DESC1); 


CHSMOVE (DBGSK-STG_ 


DESC_S 
VALUE! = ..ARG ~DESCIEDBGSL VALUE POINTER); 
VALUE2 = ..ARG_DESC2(DBGSL- VALUE POINTER); 


z pVALuce EQ. 0 
SIGNAL (DBG$_DIVBYZERO) ; 


VAL_DESCICDSCSA_POINTER] = VALUE1; 
VAL-DESC2EDSCS$A_POINTER) = VALUE2;: 


DBGSNORMAL I ZE_F IXED(VAL_DESC1); 


1ZE, ARG_DESC2LDBGSA_VALUE-VMSDESCJ, VAL-DESC2); 


i Rs | 
as.angor IEReIMM CRI ESN NST, 


: 809 9 1 DBGSNORMALIZE_F IXED(VAL_DESC2); 
; 1 3 j MATCH_FIXED_BINARYS(VAL_DESC1, VAL_DESC2); 
; ig 935 DBGSCVT_CVTLH_R1(VALUE], TEMP_VAL1); 
; 1 , $ DBGSCVT_CVTLH “R1 (VALUE2, TEMP_VAL2); 
: BIG 938 t Do the divide. 
; 18 940 DIVH(TEMP_VAL2, TEMP_VAL1, TEMP_RESULT); 
; 0 tg 1 Now convert the H_float to Fixed Binary. 
3 1 94 i This is not pretty, but it's better that trying to set up to call 
: § ate : CVT_OX_DX to do t @ same thing. This will be a lot faster. 
: B26 946 RESULT -VALUE = 0; 
; 5 94 SIGN =~. TEMP RESULT<15, 1, 0>; 
; g 348 TEMP_RESULT<TS i, 
: 094 SCALE = , TEMP RESU L1<0, 18, 0> = 16384; 
; 4 8 950 CALE = .SCAL 
; 0951 RESULT_VALUE< 0, 1, 0> = 1; 
; 8 095¢ RESULT “VALUE<14, 16, O> = .TEMP_RESULT<16, 16, 0>; 
; 31 95 RESULT VALUE<O, 14, O> = .(TEMPTRESULT#+4)<18, 14, 0>; 
: 8 ¢ 0985 IF USIGN THEN RESULT “VALUE = 0 = .RESULT_VALUE; 
; zz | ' Normalize the result. Makes the output look neater. 
: HH aa 4 (We don't need all the fields filled in.) 
: 837 0959 TEMP_DESCCDSC$W_LENGTH) = 4; 
; 838 960 TEMP—DESCCDSCS$B-SCALE) = .SCALE; 
: 839 0961 TEMP~DESCLDSC$A~PO1 INTER] = RESULT _VALUE; 
; 840 0968 DBGSRORMALIZE_FIXED(TEMP_DESC); 
; g 0964 -RESULT_DESCCDBGSL_VALUE_POINTER] = gRESULT VALUE ; 
; 965 RESULT_DESCCDBG$B_VALUE_BTYPE] = DSC$K YPE 
; 4 0966 RESULT ~DESCCOBGSB— VALUE™ “SCALE . TEMP DESC Bstse_ SCALE); 
: 846 b968 END; 
OFFC 00000 ENTRY pacsply FIXED FIXED, Save R2.R3,R4,.R5,R6,- ; 0874. 
R9,R10,R1 3 
59 0000v cr 9€ 0000 MOVAB DBGSNORMAL I ZE FIXED, R : 
8 000000006 9E 0000 MOVAB DBGS$CVT_CVTLH-R : 
5 AO AE 9 99 MOVAB -96(SP)> SP : | 
04 AC p 01 MOVL RG_DE StI R? : 0917. 
18 AE 146 A? 0c 001 MOVC3 #127 20(R?), VAL_DESC1 : | 
56 08 AC p 1 MOVL *D ste R6 : 0918. 
OC AE 16 Ab o¢ movc3) #1 (R6), VAL_DESC2 : | 
6£ 18 B87 D 6 VL = @24¢R7), VALUE] ~ ; 99 0 
04 AE 1 6 p A VL @24(R6), VALUE? : 0921. 
D F BNEO : 09 = 
00028240 8F oD 1 PUSHL 64416 > 0925 | 
000000006 00 1 FB 00037 CALLS #1, LIBSSIGNAL ; 


vos-000 


0000v 


50 AE 40 
51 51 AE 


09 
5 56 AE 
08 


214 bytes, 


AE OE 


~~ 
Ooo 


3; Routine Size: 


Routine Base: 


16- 
14- 
6E 9E 3 
4 AE 9E 4 
8 ae F bh 
01 FB GA 
OC AE OF 4 
01 FB 
OC AE OF 
1C 8 =AE OOF 8 
O02 FB 000 
40 AE 9€ F 
sf 
30 AE 9E 006 
4 a 7 0068 
68 1 4 
30 ©AE67FD 4 1 
08 AE 04 00079 
8 F id 
$8 F BA SB 
0 A C 000 
BFE1 CO YE 000 
3 BF 8 4 
5 AE F 09 
as 
31 £9 BO0A8 
08 AE cf QOOAB 
04 B80 00080 
50 90 00084 
08 AE 9E 00088 
24 AE 9F 00080 
01 FB 000C 
Oc AC 00 000C 
08 AE 00 Race 
08 90 OO00CC 
2C AE 90 00000 
04 00005 


DBGSCODE + O4FC 


a 
bad 
oe 


2s: 


ss~ 


pa19be 12:47:01 


AX-11 Bliss-32 V4.0 35. 
DEBUG. SRC JDBGLANGOP. ~B3 31 


VALUE}, VAL_DESC1+4 

VAL AL=DESC2+4 

#1, “DBGSNORMALIZE_F IXED 
VAL. 


oy DBGSNORMALIZE_F IXED 
DESC 


Vacs. te 
TEMP TERR. VAL1, TEMP_RESULT 


NV rT 

TEMP_RESULT+1, SIGN 

fEMP_RESULT#1 
Che 


LUE+3 
pSuLT ae #16, RESULT_VALUE+1 
Pm 4] "RESULT#+6, R2 
— #14, RESULT VALUE 


ut pebes RESULT_VALUE 


+8 
iE Ef Ll CFENP DESC +4 
BRGSNORMAL JE _FIXED 
RESuL ESC, RO 
RESULT I cVALUE, @24(RO) 
TEMP_ A 28(RO) 


Bee Se Se Se Se Ge Se Ge Se Se Ge Ge Ge Se Se Se Se Ge Se Fe Se Fe Fe Fe Se Fe Se Se Se Fe Fe Se Ge Se Ge Se 


z 


1Sse0-198e 2 93:99:01 — UOEeus. SkcSoeacancor.0$5; 1 Page 13), 


GLOBAL ROUTINE DBGSENUM_FIRST (TYPEID: REF RSTSENTRY) = 


' FUNCTION 
This routine finds the first enumeration element in a set of 
enumeration ehonents. and returns the ~~ teger,, value of that 
element. *.% hus does the same ching 29 *FIRST'’ operator 

n ADA. code is taken tree the TOKEN : “TICK. FIRST case 

in the DBCeEVAL -ADA_TICK routine in this module. 


' 
! 
! 
' 
! 
' 
' 
} This routine is needed when indexing ADA arrays that are 
' 
' 
1 
] 
' 
1 


PPPS SISIUIVIVT ES 


DONOUS WOO 


: subscripted by enumeration types. 
' INPUTS f . a2 


oo 
-—o 


TYPEID = describes the enumeration type for which we 
: want the first element. 

! OUTPUTS 
. The value of the first element is returned. 


oo 

= 
ooo 

ooo 

WM 


KIND 

OMPONENT_LIST: REF VECTORCI, 
DST VALUE? VECTORC3), 

D 

HI GHBOUND : 

LOWBOUND; 


If we do not have a typeid then just return 0. 
if .TYPEID EQL 0 
THEN 
RETURN 0; 
If we have a subrange type, get the parent type. 


unite - TYPEIDCRSTSB_FCODE] EQL RSTSK_TYPE_SUBRNG DO 
DBGSSTA_ TYP_SUBRNG(.TYPEID, TYPETD, LOWBOUND, HIGHBOUND, DUMMY); 


: If we do not have an enumeration type then just return 0. 
IF .TYPEIDCRSTSB_FCODE] NEQ RSTSK_TYPE_ENUM 
RETURN 0; 
: Obtain the component List. 
COMPONENT_LIST = TYPEIDCRSTSA_TYPCOMPLST); 
: Return the value of the first element. 


DpcssTA_ SYMVALUE(. COMPONENT LISTCOJ, DST_VALUE, ADR_KIND); 
IF _ .ADR-KIND NEQ DBGSK_ VAL _CITERAL 


THEN 
$DBG_ERROR(' 10) Pmaemamammmait FIRST"); 
ee - -DST_VALUE 


SeeSSSSSSS3 


Be Oe Be Se Se Se Se Se Be Se Se Se Se Se Se Se Ge Fe Se Ge Se Se Fe Se Se Se Ge Se Ge Se Ge Se Se Ge Se Ge Se Ge Se Se Se Se FF Se Se Se Se Ge Se Se Se Se Sears 
SS 
OOCOCCOoO 
Ss oonovono 
2.0900 0000 
WN CORN 
RPP IPIPINIPIPIPIPOPIPIPUPIPIPIPIPIPIPIPIPIPIPINIPIPININININIIIIIII 8 at at tt tt td a 
-@o 
om 
aa 
ae 
orr2a 
=] 


NOUS UW O 


ee ee ee ee 


me a a ed a at at = ot = 


CSOOOCOOCOOOoOooooo 
forenoon 


Wr—OOoe 


esate 


24 47 42 446 SC 50 4F 47 ri} 41 4 
54 53 52 49 46 SF 


000 6 
SE % ¢ 5 
04 Ac D 0 
5¢ 1 008 
50 04 AC 00 QOO0A 
09 18 Ad 91 605 
16 12 0001 
5E +4 0014 
08 AE OF 80018 
19 AE 9F 0001 
04 AC 9F QO0IC 
50 DD QOO01F 
000000006 00 05 FB 00021 
EO 11 00028 
50 04 AC 00 Q002A 
04 18 40 91 000 3 
3 ie 000 
50 eC CO 00034 
OC AE OF StH 
14 AE 9F OOOSA 
60 0D Bangs 
000000006 00 03 FB 00035F 
01 oc “f D1 00046 
15 13 QO04A 
00000000" EF 9F 0004C 
01 dD 00052 
00028362 8F DD 00054 
000000006 00 03 FB QO05A 
50 10 BE 00 Beoee 
04 00065 
50 04 00066 
04 00068 


3; Routine Size: 105 bytes, Routine Base: DBGSCODE + 05D2 


ra | 


—s 
wn 
oe 


~m 
bed 


wa 
bad 


«PSECT 
ASCII 


pal9ge 82:47:01 EDEBUG. SRCSDBGLANGOP 85951 


DBGSPLIT,NOWRT, SHR, PIC,0 
<24>\DBGLANGOP\<92>\DBGSENUM_F IRST\ 


DBGSCODE,NOWRT, SHR, PIC,0 
st et a FIRST, Save nothing 
TyPEID. 

4} 

TYPEID, RO 

gach), a9 

SP 

HIGHBOUND 

LOWBOUND 

TyPE1O 

$2. DBGSSTA_TYP_SUBRNG 


TYPEID, RO 
24(RO), #4 


oS 
#44, Ymaapee LIST 
ADR. oye 


DSTAVALUE 
(CORPONENT LIST) 

$51 SYMVALUE 
ADR KIND, aT 


i 
#164706 
#3, LIBSSIGNA 


aDST_VALUE, R 
RO 


} 


a 
ib-se -1984 01:20: AX-11 Bliss-32 V4.0-74 Page 34 
ae ae 93:49:30 DEBUG. SRC IDBGLANGOP .B3 31 ° (14). 
GLOBAL ROUTINE DBGSENUM_POS (TYPEID: REF RSTSENTRY, VALUE) = 
FUNCTION 


iven an enumeration value, this routine finds which position 
n the List of enumeration values corresponds to that value. 


* 


33 


This is needed in supser let ing ADA rere where we want 
° 


If we do not have a typeid then just return the input. 
If .TYPEID EQL 0 

RETURN .VALUE; 
If we have a subrange type, get the parent type. 


WHILE .TYPEIDCRSTSB_FCODE] EQL RSTSK_TYPE SUBRNG DO 
DBGSSTA_TYP_SUBRNG(.TYPEID, TYPETD, LOWBOUND, HIGHBOUND, DUMMY); 


If we do not have an enumeration type then just return the input. 
IF .TYPEIDCRSTSB_FCODE] NEQ RSTSK_TYPE_ENUM 
RETURN .VALUE; 
Obtain the component List. 
COMPONENT_LIST = TYPEIDCRSTSA_TYPCOMPLSTI; 
: Loop through the component List looking for a value that matches. 


NDEX = 0; 
INCR I FROM 0 TO .TYPEIDCRSTSL_TYPCOMPCNTJ-1 DO 


DBGSSTA_SYMVALUE(. COMPONENT LISTC.INDEX], DST_VALUE, ADR_KIND); 
IF .ADR-KIND NEQ DBGSK_VAL_CITERAL 


E 
$DBG_ERROR( "DBGLANGOP\DBGSENUM_FIRST'); 


i 
i 
i 
i 
3i9 } 
91 : to index by enumeration position and no Oy value. This 
aig } un does the same thing as the ‘*POS'’ function in ADA. 
914 ; TYPEID = describes the enumeration type for which we | 
915 : are doing this operation. 
a | : VALUE = The enumeration value, expressed as an integer, 
91 : for which we want the position. 
218 ! OUTPUTS 
a The position of the enumeration element is returned. 
1 BEGIN 
5 OCA OR KIND | 
4 COMPONENT _LIST: REF VECTORC), | 
5 ah VALUE: VECTOR(3], 
$ HIGHBOUND , 
8 INDEX, 
G L ; 
0 
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vOs-000 


& 
y$-sep-1964 01:20:50 yayett pLigs-32 ve.0-742 rene iS 


; 36) } 1 If -VALUE EQL ..DST_VALUE(O) 

; 363 1 : RETURN . INDEX 

; 1084 ELS 

: 965 : 5 am INDEX = . INDEX ¢# 1; 

; 309 1 c 

3 28 1 8 ! If we get here we did not find a matching enumeration value. 

; 383 : In this case, just return the input value. 
: 971 1091 RETURN .VALUE; | 
: 972 1092 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


47 4E 41 4C 47 42 44 #18 00238 P.AAP: .ASCII <24>\DBGLANGOP\<92>\DBGSENUM_F IRST\ 3 


24 47 42 46 SC 4F 
53 52 49 46 SF 4D 55 4E 45 O024A os 3 


0 
4 


-PSECT OBGSCODE.NOWRT, SHR, PIC,0 


003¢ 00000 .ENTRY DBGSENUM_ POS, Save R2,R3,R4,R5 : 1024) 
5E 1c C¢ 9008 SUBL2 : 
04 aC 05 0000 TSTL TePELD > 1053, 
72 13 00008 BEQL «6s 7$ ; 
50 04 AC DO O000A 18 MOVL TYPEID. RO : 1059. 
09 18 AO 91 9000¢ CMPB 55 ; 
16 12 0001 BNEQ ; 
5E DD 00014 PUSHL : 1060 | 
08 AE OF 0016 PUSHAB 311 GHBOUND : 
1 AE 9F 0001 PUSHAB LOWBOUND ; 
06 aC 9F 0001C PUSHAB FYPEID ; 
50 DD OOO1F SHL  R : 
000000006 00 05 Fe 0021 CALLS #5, DBGSSTA_TYP_SUBRNG ; | 
EO 11 00028 BRB 1$ ; | 
54 04 AC 0 O2A 28 MOVL TYPEID, R4 > 1064 
04 18 AG O91 : rT 4(R4), #4 : 
48 12 BNEQ : 
52 2c «(AG OOE MOVAB 44(R4), COMPONENT_LIST : 1070 
53 D4 000 CLRL INDEX + 1074 
55 91 CF 0 A MNEGL #1, I > 1081. 
8 BRB 6$ 3 
Oc AE OOF F 3$ PUSHAB > 1077) 
14 AE 9F 0004 PUSHAB ; | 
6243 DD 0004 PUSHL incr LIST) CINDEX) : | 
000000006 99 0 re Ss CALLS STA_SYMVALUE 3 
1 0c Af p 4F CMPL ADRK aT : 1078 
1 3 00 ; BEQL 4$ ~ : 
00000000" EF 9F 00 PUSHAB P.AAP : 1080 
1 0D 8 PUSHL #1 ; 
00028362 8F OD p PUSHL #164706 F 
000000006 00 3 FB CALLS #3, LIBSSIGNAL : 
10 BE 08 ac ? 6A 4% CMPL ALUE. @DST_VALUE > 1081 
04 12 0006F BNEQ $ ; 


; Routine Size: 


stein ep aseh] OLig5-32 v4 0-762 
move INDEX, RO 


tf INCL INDEX 
§ : AOBLSS 40(R4), I, 3$ 
$: MOVL VALUE, R 


50 53 Bo 
53D 
Bian oe 7 


129 bytes, Routine Base: DBGSCODE + 0638 
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8 | 
GLA bese -1984 01:20:30 AX-11 Bliss-32 V4.0-74 Page 37 
tae al 12-808=} 382 94:40:30 DEBUG. SRC IDBGLANGOP.B3 31 . ae 
3 gre } 37 } GLOBAL ROUTINE DBGSENUM_SUCC (TYPEID: REF RSTSENTRY, VALUE) = 
; $6 1095 1 | FUNCTION 
; 9? 1 38 1} Given an enumeration value, this routine finds the enumeration | 
; 44 1097 1! value of the successor element. This corresponds to the ‘’'SUCC 
3 3 : 38 ’ : function in ADA, 
: 981 11 1/ This routine is needed when we do an aggregate examine, in ADA, 
: § 1 1 : } neuts” an array indexed by an enumeration type. 
: +) 11 j 1: TYPEID = describes the enumeration type for which we 
; 985 11 , 3 are doing this operation. 
; 9 1105 1! VALUE = The enumeration value, expressed as an integer, 
3 HH } : for which we want the successor. 
: 989 1108 1! OUTPUTS 
; 990 11 1! The value of the successor is returned. 
BHR ecu 
: 99 111 LOCAL 
; 9946 1148 ADR_KIND 
: 995 1114 COMPONENT _LIST: REF VECTORC), 
3 a | 1115 DST_VALUE: VECTOR(3), 
; 99 1118 
; 998 111 FOUND FLAG, 
; 999 BE I GUND, 
: 4 1339 INDEX, 
; 1008 1121 ; 
3 Ht 1% ¢ If we do not have a typeid then just return the value + 1. 
: 1005 1124 if .TYPEID EQL 0 
3 1008 1125 H 
; 100 11 § RETURN .VALUE+1; 
; 1008 11 
3 Hs¢4 1 If we have a subrange type, get the parent type. 
: 1011 1130 WHILE .TYPEIDCRST$B_FCODE) EQL RSTSK_TYPE_SUBRNG DO 
; 1918 } 1 DBGSSTA_TYP_SUBRNG(.TYPEID, TYPETD, LOWBOUND, HIGHBOUND, DUMMY); 
: Iole i § If we do not have an enumeration type then just return the value ¢+ 1. 
: 1016 i 5 if .TYPEIDCRSTSB_FCODE) NEQ RSTSK_TYPE_ENUM 
: 1018 RETURN .VALUE+1; 
; + ’ 1138 : Obtain the component list. 
; i 5 1141 COMPONENT_LIST = TYPEIDCRSTSA_TYPCOMPLST); 
; H $ 1148 : Loop through the component List looking for a value that matches. 
WH 8 PS Re as 
7 3s . 
: 19 8 N47 INCR T FROM 0 TO .TYPEIDCRSTSL_TYPCOMPCNTJ-1 DO 
: 10 1108 DBGSSTA_SYMVALUE(.COMPONENT_LISTC.INDEX], DST_VALUE, ADR_KIND); 


OBES s bitin tase Luce Epub ct nti ice See 


VEN 


MEA" OOONANE UO 


— et ee a a — a ng — a = ws — Ls as — 


RRRARAE ERE RE RE REG 


VIFWUN—"OOONOUES WHO 0O@ 
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Pe 5 bd bs 5 as ts 4 ts 


PN BP AN A WS RAS oe tee 4 
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Se Se Se Ge Se Se Se Se Se Se Se Ge Ge Fe Se Se Ge Se Ge Ge Se Ge Se Se ee 


24 47 42 44 SC 50 4F 
54 53 


IF gADR.KIND NEQ DBGSK_VAL_LITERAL 
$DBG_ERROR("DBGLANGOP\DBGSENUM_FIRST"); 


! If we found a value that matched Loss time around, 
! then return the value we computed this time around. 


! 
! 
i 
if .FOUND_FLAG 
THEN 

RETURN ..DST_VALUECO); 


! If we match this time around, set the flag saying we want to 
stop next time around. 


if gVacue EQL ..DST_VALUECO) 
FOUND_FLAG = TRUE; 

INDEX = . INDEX + 1; 

END; 
! If we get here we did not find a matching enumeration value. 
} In this case, just return the input value + 1. 
RETURN .VALUE + 1; 
END; 


-PSECT DBGSPLIT,NOWRT, SHR, 


47 GE 41 4C 47 62 44 1 00254 P.AAQ: .ASCII <24>\DBGLANGOP\<92>\DBGSENUM_F IRST\ 
52 49 46 SF 4D 55 4E 45 00263 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
007¢ 00000 -ENTRY DBGSENUM_SUCC, Save R2.R3.R4,R5,R6 
SE 1¢ C2 0000 SUBL2 #28, SP 
04 ac D 90 TSTL TYPEID 
78 13 000 BEQL «= BS. 
50 04 AC p O00A 1$ MOVL TYPEID, RO 
09 18 A0 91 ote CMPB g4(R ». #9 
5E po 8 1 PUSHL SP 
08 AE OF 18 PUSHAB HIGHBOUND 
10 AE 9F 0001 PUSHAB LOWBOUN 
04 aC 9F 0001C PUSHAB TYPEID 
3 DD OO01F PUSHL RO 
000000006 00 05 re } CALLS ’ , DBGSSTA_TYP_SUBRNG 
A po A 28: MOVL TYPED. R3 
As 91 CMPB 4(R3), #4 
51 12 BNEQ $ 
a3 ¥E MOVAB 44(R3), COMPONENT_LIST 
24 D CLRL —sINDEX 
6 D4 CLRL — FOUND_FLAG 


F 
1er$ep=198e 12:49:0) — Edeeus. SacSbaGLANGOP.036; 1 


PIC,0 


Page 8) 


Of AE 
4 A 
624 

000000006 69 03 

1 oc ‘ 

00000000" ' 

00028362 F 

000000006 o3 ; 

0 10 ~BE 

10 «BE 08 ag 
wane 

eC 55 28 AS 
0 08 Ac 01 


Routine Base: 


; Routine Size: 


139 bytes, 


DBGSCODE + 


& 
1B-se 1984 01:20: AX-11 Bliss-32 V4.0-74 
1 ~3007 138% 9:99:30 DEBUG. SRC IDBGLANGOP.B3 31 
F He MNEGL #1, I 
f BRS 7$ 
f 41 38 PUSHAB ADR_KIND 
f re] PUSHAB DST_VALUE 
DD PUSHL (LORFON NT_LIST)CINDEX) 
f 4A CALLS #3, DBGSSTA_SYMVALUE 
p CMPL  ADR_KIND, aT 
BEQL 
oF PUSHAB P.AAQ 
1) 1) PUSHL 
00 fF PUSHL 4 ae 
4 #1 CALLS #3, aie ee 
E C 4$: BLBC FOUND_FLAG, 5 
bo Ooer pov @DST_VALUE, RO 
D1 bore 56 CMPL VALUE, @DST_VALUE 
i 0079 BNEQ 
i) $078 MOVL #1, FOUND_FLAG 
0g ore $: INCL INDEX 
C1 00085 8$: ADDL #1, VALUE, RO 
04 OO08A RET 
06BC 


GLA 16-Sep-1 AX-11 Bliss-32 V4.0-7 Page 40 
tow 1$-se0-1984 9}: 79: 39 DEBUG. SRC DBGLANGOP. Ba 31 ° (16) 
ie GLOBAL ROUTINE DBGSENUM_VAL (TYPEID: REF RSTSENTRY, POSITION) = 


i FUNCTION 

Given a position in a List of qnuseretion values, this routine 
returns wthe enumera fon welue n that position. fhis corresponds 
to the "VAL"’ function in ADA. 


~ 


This routine is used for bounds-checking of ADA arrays that 
spurs” indexed by enumeration types. 
TYPEID = Soeersyes the enumeration type for which we 
e doing this operation. 
POSITION- the position number of the enumeration value. 


UEPWN—O 


SESESSSEZESTES 


3 1 11 1 

3 7 11 1 

3 Y 11 1 

3 Y 11 1 

3 7 11 1 

3% 11 1 

3 11 1 

3 1 11 1 

3 7 11 1 

3 7 11 1 

3; 1 11 1 

3 7 11 1 

3 Y 11 1 

; 1070 11 : 1 

3 1993 11 1 ! OUTPUTS 

3 1 % 11 1 The enumeration value at that position is returned. 
3; 107 1191 BEGIN 

3: 1074 1136 LOCAL 

3; 1075 119 ADR KIND 

; 107%6 1194 COMPONENT _LIST: REF VECTORC), 

$ i BY nal VALUE? VECTOR(3), 

: 1079 1199 #1 GHBOUND , 

3 1 1198 LOWBOUND ; 

: 198) 1199 

3 10e¢ : 4 } If we do not have a typeid then just return the input. 
3; 1084 1 oe IF .TYPEID EQL 0 

3; 1085 120 THEN 

3 1058 : Be RETURN .POSITION; 

; Hs 93 : 06 : If we have a subrange type, get the parent type. 

; 1090 1208 WHILE .TYPEIDCRSTSB_FCODE] EQL RSTS$K_TYPE_SUBRNG DO 

3 1991 ! 08 DBGSSTA_TYP_SUBRNG(.TYPEID, TYPEID, LOWBOUND, HIGHBOUND, DUMMY); 
: 1098 : V : If we do not have an enumeration type then just return the input. 
: 1998 1 ig IF .TYPEIDCRSTSB_FCODE] NEQ RSTSK_TYPE_ENUM 

; 198 1214 TH 

3 Hh ad : \? RETURN .POSITION; 

: 1099 1 i ! Obtain the component List, look up the Nth element, and return 
3 1191 : 8 its value. 

3 11 ‘ 1220 COMPONENT_LIST = TYPEIDCRSTSA_TYPCOMPLST); 

3; 110 1221 DBGSSTA_SYMVALUE(. COMPONENT _LISTC.POSIT 10N), DST_VALUE, ADR_KIND); 
: 1106 ! ; F .ADRKIND NEQ DBGSK_VAL "citerat 

3; 11 1224 $0BG “PRT OVALUE EDI OOsENUR. FIRST"); 

: ies ' 2 — .-DST_VA 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


26 47 42 46 5 


3; Routine Size: 
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SRST SSSR ee SSN aan eebtne 
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«PSECT 


9c V2:4:57 — EOEBUG. SkeSbacc ancor.039. 1 


: i oogP P.AAR: .ASCII 


<24>\DBGLANGOP\<92>\DBGSENUM_F IRST\ 


DBGSCODE,NOWRT, SHR, PIC,0 
DOGSENUM_VAL., Save nothing 

f SP 

TYPEID 


YPEID, 8 
4(RO), # 
3 

SP 
HI GHBOUND 
LOWBOUND 
TYPEID 


R 
"3. DBGSSTA_TYP_SUBRNG 


TYPEID, RO 
24(R0), #4 


4$ 
POSITION, RO 


#44, COMPONENT_LIST 
ADR_KIND 

DST VALUE 

POSITION, R1 
(COMPONENT _LIST)CR1) 
#3, DBGS$STA_SYMVALUE 
ADR_KIND, at 


P.AAR 


#164706 
#3, LIBSSIGNAL 
aDST_VALUE, RO 


y 
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1b-seo-1984 93:49:30 AX-11 Bliss-32 V4.0-74 


14-Sep-1 DEBUG. SRC JDBGLANGOP .B32;1 


# 


; 1319 ! 7 ! GLOBAL ROUTINE DBGSEQL_FIXED_FIXED (ARG_DESC1, ARG_DESC2, RESULT_DESC): NOVALUE = 
:111 1 1 | FUNCTION 

3711 1 1! 

3 1116 BE This routine is called to perform the equal to operation 

3 1332 : § : } on a scaled binary variable. 

: 149 1 1 | INPUTS 

3 1118 1235 1! 

3 111 1 , ! ARG_DESC1 - points to the value descriptor representing the 

; 1120 1 1! eft argument of the operation. 

3; 1121 1238 1! ARG_DESC2 = points to the value descriptor representing the 

3 11 ¢ 1239 1! r gre argument of the operation. 

3 11 1240 1! RESULT_DESC = points to the value descriptor representing the result. 
: 1126 12461 1! of the operation. 

3: 1125 1 og 1! 

3 1158 12465 1 ! OUTPUTS 

311 1244 1! 

3 11 : 12465 1! The result value descriptor is filled in. 

3 11 1 re 1! No value is returned. 

3 11 1247 1! 

3 1131 1248 BEGIN 

3 11 ; 1249 

3 11 1250 MAP 

3 11 1251 ARG_DESC1 : REF DBGSVALDESC, 

3; 1135 1 26 ARG_DESC2 : REF DBGSVALDESC, 

3 i; ' rf RESOLT_DESC : REF DBGSVALDESC; 

5 1138 1255 LOCAL 

3; 1139 1 3$ VAL _DESC1 DBGS$STG_DESC, 

3 1140 125 VAL_DESC2 DBG$STG_DESC, 

3 1141 1 28 VALOE1, 

: 1346 ; 44 VALUE 2; 

: re | : 3 Set up working variables. This way we don't mess up anything important. 
: 1146 1 re. CHSMOVE (DBGSK_STG_DESC_SIZE, ARG_DESC1COBGSA_VALUE_VMSDESC], VAL_DESC1); 
: Pt 4 : rf: CHSMOVE (DBGSK_STG_DESC_SIZE, ARG_DESC2CDBGSA_VALUE_VMSDESC], VAL_DESC2); 
: 1149 1 06 VALUE! = + o ARS DESC] Ppees VAL US Pointer 3 

; 1150 126 VALUE2 = ,.ARG_DESC2CDBGSL_VALUE POINTER); 

> 1151 1268 VAL _DESCIEDSCSA_POINTER ="VALUET: 

3 1128 : +4 VAL_DESC2CDSCSA_POINTER] = VALUE2; 

: 112 1 9 DBGSNORMAL I ZE_F IXED(VAL_DESC1); 

: tee : g DBGSNORMAL I ZE_F IXED(VAL_DESC2); 

: 1137 1 r MATCH_FIXED_BINARYS(VAL_DESC1, VAL_DESC2); 

: 1138 : , Do the Equal evaluation. 

; 44d : 4 .RESULT_DESCCDBGSL_VALUE_POINTER] = .VALUE1 EQL .VALUE2; 

: 1188 1280 END; 


3; Routine Size: 


89 bytes, 


18 


Routine Base: 
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DBGSCODE + 0787 


ie 


seergy Wee SP FIXED FIXED, Save R2,R3,R4,R5,R6,R7 


mate hay 

MOVC3 BSC ig R? VAL_DESC1 
MOVL Ang. 2 

movCS) #1 (R6), VAL_DESC2 
MOVL ag4iR ), VALUE! ~ 

MOVL @24(R6). VALUE2 

MOVAB VALUE1, VAL_DESC1+4 
MOVAB VALUE2, VAL_DESC2+4 
PUSHAB VAL_D 

CALLS #1, DBGSNORMALIZE_FIXED 
PUSHAB vA (_DESC2 

CALLS “DBGSNORMALIZE_F IXED 
PUSHAB VAL_DESC 


4 
PUSHAB VAL_DESC 
CALLS #2, MATCH_FIXED_BINARYS 


MOVL RESULT_DESC, R1~ 
CLAL 
CMPL -* VALUE1, VALUE2 
BNEQ ~=s«s1$ 
INCL RO 

1$: MOVL RO, @24(R1) 
RET 
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AX-11 Ol igsnse V4.0-74 
DEBUG. SRC 


; 116) ! 1 } GLOBAL ROUTINE DBGSEVAL_ADA_TICK (TYPEID, OPERATOR) = 

; 1167 1 : 1 i FUNCTION 

: 1108 : : : } This routine does the evaluation of an Ada tick operator. 

: 1190 1 $ 1/ It receives the operand type, and selects the actual Ada tick routine 
: 1171 1 1! to do the operation based on the operator sub-code and the typeid. 

3 11% 1288 1! DBGSPERFORM_TICK_xxxxx routine is called to actually perform the 

3 Ee, ' 9 : specific operation. 

: 1175 1291 1! This routine cases on the TOKENSW_SUBCODE value of this operator to 

$ 1178 1 38 1! determine which actual routine will do the operation with the gperand. 
3 EA ! 7 : : If a routine is not found to handle the operation a error is signaled. 
: t+ ; 32 ' ! A Primary or a Value Descriptor may be returned as the routine value. 

> 1181 1599 1} INPUTS 

: ise ! + : TYPEID = The typeid of the previous operand. 

: 1184 1300 1! OPERATOR - A pointer to the Ada tick operator Token Entry for the 

: at #4 1303 : operator to be evaluated. 

: 1187 1 08 1 § OUTPUTS 

3 H+ 4 } Be \ A pointer te the ae gousrsoees watee Comte Sven the peetuatsen of 
3 ! e operator is returned as s routine's result. Or, 

3 1190 1 Bg 3 A pointer to the Primary Descritpor. 

3 1191 1307 1! 

3 1336 1308 1 

3 119 1309 BEGIN 

: 1198 1314 

: 1196 1 \§ OPERATOR : REF TOKENSENTRY, ' Token entry for operator to perform 
3; 1197 131 TYPEID : REF RSTSENTRY; ! RST entry for the operand 

: 1198 1318 LOCAL 

3 1200 1316 ARG_LIST : REF VECTOR C,LONG], ! Counted vector of orgmente 

: 1201 1317 ARG_VALUE, ' Value of the argumen 

3 ; 4 : + BOURDVEC : REF VECTOR C,LONG), } pointer to boun s vector in 

: ! array descriptor. 

3 1204 1 3 COMPONENT_LIST : REF VECTOR C Long). } Vector of RST type components 
3 1205 1321 DSCADDR : REF BLOCK C,6YTE), i Array Descriptor 

3 1 5) 1 $§ DST_VALU : VECTOR C3, LONG], ' Value contained in DST 

3: 120 1 DUMT ,DUM2,DUM3, ' Dummy Variables for calls 

: 1208 1324 1GHB » ' pigner bound of the range 

: 1209 1325 DEX, ! Index for component Lis 

3; 1210 1 § L ° ! Lower bound of the range 

3; 1211 1 NDIMS ' Number of dimensions in ervey 
31 1 1 $ OPCODE, ' Operator sub-code for current operator 
: 121 1 RESULT : REF DBGSVALDESC, ! Pointer to result value descriptor 
3 1214 13350 RSTPTR : REF RSTSENTRY, ' Temp pointer to an RST entry 
3 : 3 : 1 STRIDEVEC : REF VECTOR C,LONG), ; Pointer te _— vector in 

: ' array descriptor. 

; ! 7 ' $ TEMP_VAL_DESC : REF DBGSVALDESC; : Temp value desc. 

; 13 5 

: 1 $f 1 $ ! Pick up the operator sub-code and case on it to determine what operator 
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pal98e t2:t:01 — EDEBUG. SRCSDBGLANGOP-039; 1 Peer 8 


: routine to call. 
OPCODE = .OPERATORCTOKENSW_SUBCODE); 
SELECTONE .OPCODE OF 

SET 


CTOKENSK TICK_CONSTRAINED]: 
SE Ree 1, UPLIT BYTE (ZASCIC ‘**CONSTRAINED')); 


VIFWN“OOONOUS wiry 


CTOKENSK _TICK_FIRSTI: 
BEGIN 
! Check to see that the incoming typeid is one of the possible 
! RSTs for this operator. 
Foi Pe TOURS TSS KID) EQL RSTSK_DATA 
DBGSSTA_SYMTYPE(.TYPEID, DUM1, TYPEID); | 
IF “TYPEIDERSTSB FEODE3 NEQ RSTS$K_TYPE_ENUM AND 


-TYPEIDERSTSB-FCODE] NEQ RSTSK-TYPE-SUBRNG AND 
-TYPEIDECRST$SB_FCODE) NEQ RSTSK-TYPE-ARRAY 


SIGNAL (DBG$_OPNOTALLOW, 1, OPERATORCTOKENS$B_OPLEN)); 
! If the input typeid is enumeration, then execute the code for 
! this, otherwise it will be an array type which requires different 
processing. 
if .TYPEID RST$SB_FCODE] EQL RSTSK_TYPE_ENUM OR 
oe RST$B_FCODE] EQL RSTSK_TYPE_SUBRNG 

BEGIN 


! There should not be an argument List. If there is one, 
signal the error. 


if . OPERATORC TOKENSV_ARGUMENT_LIST) 
SIGNAL (DBG$_INVARGLIS, 1, OPERATORCTOKENSB_OPLEN]); 

Make a value descriptor for the result. 

RESULT = DBGSMAKE_VALUE_DESC(.TYPEID, 0, RSTSK_TYPE_ENUM); 
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5 
! Check to see if the type is subrange of enumeration. If so 
} handle the ‘FIRST for the subrange. 
5 IF .TYPEIDCRSTSB_FCODE] EQL RSTSK_TYPE_SUBRNG 
+ THEN 
+4 BBCSSTA TYP_SUBRNG(.TYPEID, RSTPTR, LOWBOUND, HIGHBOUND, DUM1); 
93 -RSTPTRCRST$B_FCODE) NEG RSTSK_fYPE_ENUM 


n 8 
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79 95 SIGNAL (DBG$_OPNOTALLOW, 1, OPERATORCTOKENSB_OPLEN)); 
&1 37 } Fix up typeid to point to the parent typeid not the subrange 
es $3 RESULTCDBGSL_DHDR_TYPEID] = .RSTPTR; 

5 91 RESULTCDBGSL_VALUE_VALUEO] = ..LOWBOUND; 
8 $8 ELSE 
88 0% BEGIN 
90 ! Go get the first element of this enumeration type and | 
$2 return it. 
9 COMPONENT_LIST = TYPEIDCRSTSA_TYPCOMPLST); | 
94 RSTPTR = [COMPONENT LISTLOJ; 
95 DBGSSTA_ SYMVALUE(.RSTPTR, DST_VALUECO], DUNT) 
% RESULTCDBGSL_VALUE_VALUEO3 = 7.DST_VALUECOJ; | 
98 END | 
99 | 
00 ELSE 
01 BEGIN 
08 
0 


Wie 


! If there's an argument List, go get the argument. Otherwise, 
set the default value of the ‘FI 


if _;,OPERATORCTOKENSV_ ARGUMENT LIST 


3 


ST function to one. 


Ww 
So 
w 


SUS 


EGIN 
Get the argument 
ARG_LIST = DBGSGET_BIF_ARGUMENTS(1, OPERATORCTOKENSB_OPLEN)); 
TEMP VAL_DESC = .ARG_LTSTC1); 

ARG_VALUE = . TEMP_VAC_DESCCOBGS$L_VALUE_VALUEO); 
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SE 
ARG_VALUE = 1; 
Get array information. 
DBGSSTA_TYP_ARRAY(.TYPEID, DSCADDR, DUM2, NDIMS, COMPONENT_LIST, DUM3); 


' Check to see that the input value in the proper range. 


If not signal novalue. 


if ARG_VALUE LEQ 0 OR .ARG_VALUE GTR .NDIMS 
SIGNAL (DBG$_INVARRDIM) ; 
ARG_VALUE = .ARG_VALUE - 1; 
: Make a value descriptor for the first array subscript value 
if .COMPONENT_LISTC.ARG_VALUE) EQL 0 
THEN 


RSTPTR = DBGSTYPEID_FOR_ATOMIC(DSCSK_DTYPE_L, 32, FALSE) 
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IN 
PTR = ,COMPONENT_LISTC.ARG_VALUE); 
RSTPTR RSTSe. FCODE) EQL RSTSK_TYPE_SUBRNG 


5 DBGSSTA_TYP_SUBRNG(.RSTPTR, RSTPTR, DUM1, DUM2, DUM3); 


F473 7 ee. VALUE ESC(. RSTPTR, 0, .RSTPTRCRSTSB_FCODE)); 
2 teas = ,DSCABDR °° ahs 


ibe eta iOEV 4 
RESULT DBGSL_VALUE_VALUEO) = MBOUNDVECE2 * .ARG_VALUE); 


CTOKENSK TICK LAST: 
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Check to see that the incoming typeid is one of the possible 
' RSTs for this operator. 


-TYPEIDCRSTSB_KIND] EQL RSTSK_DATA 
DBGSSTA_SYMTYPE(.TYPEID, DUM1, TYPEID); 
IF .TYPEIDCRSTS$B_FCODE] NEQ RSTSK_TYPE_ENUM AND 

- TYPEIDCRST$B_FCODE) NEQ RSTSK_TYPE_SUBRNG AND 

. TYPEIDCRST$B_FCODE) NEQ RSTSK_TYPE_ARRAY 

SIGNAL (DBGS_OPNOTALLOW, 1, OPERATORCTOKENSB_OPLEN)); 

If the input typeid is enumeration, then execute the code for 
this, apnerutee it will be an array type which requires different 
processing. 


F rie RSTSB_FCODE) EQL RSTSK_TYPE_ENUM OR 
zt Were RSTSB_FCODE) EQL RSTSK_TYPE_SUBRNG 


ENBEGIN 


! There should not be an argument list. If there is one, 
: signal the error. 


if ,OPERATORCTORENSY ARGUMENT LIST) 

SIGNAL (DBGS_INVARGLIS, 1, OPERATORCTOKENSB_OPLEN)); 
Make a value descriptor for the result. 
RESULT = DBGSMAKE_VALUE_DESC(.TYPEID, 0, RSTSK_TYPE_ENUM); 


! Check to see if the type is subrange of enumeration. If so 
handle the SLAST for the subrange. 


TYPEIDCRSTSB_FCODE) EQL RSTSK_TYPE_SUBRNG 
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IF . 
THEN 


Legeine 0 9:79:07 Uoeaug. Src Sbaacancor.33;1 Page 48) 
DBGSSTA TYP_SUBRNG(.TYPEID, RSTPTR yl HIGHBOUND, DUM1); 
gRSTPTRERST B_FCODE] NEG RSTSK_fYPE_E 
SIGNAL (DBG$_OPNOTALLOW, 1, OPERATORCTOKENSB_OPLEN)); 
} Fix up typeid to point to the parent typeid not the subrange 
RESULTCDBGSL_DHDR_TYPEID] = .RSTPTR; 
RESULTCDBGSL_VALUE_VALUEO] = ..HIGHBOUND; 


ELSE 
BEGIN 


' Go get the first element of this enumeration type and 
return it. 


COMPONENT LIST = TYPEIOCRSTSA TYPCOMPLST 

RSTPTR = -COMPONENT LISTL. =FYPEIDCRSTSL TY Teconpcnt3 - 1); 
DBGSSTA_SYMVALUE(.RSTPTR T 

RESULTCDBGSL_ VALUE RVALUEOD = 7.DST EVALUEL + 
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ELSE 
BEGIN 
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! If there's an argument List, go > ort the argument. Otherwise, 
set the default value of the T function to one. 


IF .OPERATORCTOKENSV_ARGUMENT_LIST 
THEN 


BEGIN 
Get the argument 
ARG aN = pessee! abit f RRAURENTSCT, OPERATORC TOKENSB_OPLEN)) ; 


TEMP OV L_DESC = 
6 DALUE = . TEMP arer Ltt bbcsL _VALUE_VALUEO); 
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SE 
ARG_VALUE = 1; 
! Get array information. 
DBGSSTA_ TYP_ARRAY(.TYPEID, DSCADDR, DUM2, NDIMS, COMPONENT_LIST, DUM3); 


! Check to see that the input value in the proper range. 
If not signal novalue. 


iF .ARG_VALUE LEQ 0 OR .ARG_VALUE GTR .NDIMS 
SIGNAL (DBG$_INVARRDIM) ; 
ARG_VALUE = .ARG_VALUE = 1; 
! Make a value descriptor for the first array subscript value 
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bag anor CRIS UTS MESURE 
if. .CONPONENT.LISTC.ARG. VALUED EQL 0 . 


RSTPTR = DBGSTYPEID_FOR_ATOMIC(DSCSK_DTYPE_L, 32, FALSE) 


GIN 
RSTPTR = ,COMPONENT LISTC.ARG VALUE); 
A asthe RSTS$B_FCODE) EQL RSTSK_TYPE_SUBRNG 
” DBGSSTA_TYP_SUBRNG(.RSTPTR, RSTPTR, DUM1, DUM2, DUM3); 
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ELSE 
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RESULT = DBGSMAKE VALUE “Yintate sp bibeare 0, .RSTPTRCRSTSB_FCODE]); 
STRIDEVEC = ,DSCABDR + 20; 


BOUNDVEC = ,STRIDEVEC + 4'* .NDIMS; 
RESULTCDBGSL_VALUE_VALUEO) = .BOUNDVECC2 * .ARG_VALUE + 1); 
END; 


Zo. 
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END; 
CTOKENSK_TICK_LENGTH): 
BEGIN 
! Check to see that the incoming typeid is one of the possible 
RSTs for this operator. 
- TYPEIDCRSTSB_KIND] EQL RSTSK_DATA 
DBGSSTA_SYMTYPE(.TYPEID, DUM1, TYPEID); 
if - TYPEIDCRSTSB_FCODE] NEQ RSTSK_TYPE_ARRAY 
SIGNAL (DBG$_OPNOTALLOW, 1, OPERATORCTOKENSB_OPLEN)); 


! If there's an argument List. Get the argument. 
Otherwise let the default dimension value be 1. 


if jOPERATORCTOKENSV_ ARGUMENT _LISTJ 
BEGIN 
Get the argument 
ARG_LIST = DBGSGET_BIF_ARGUMENTS(1, OPERATORCTOKENSB_OPLEN)); 
TEMP VAL_DESC = .ARG_LTSTL1); 
ARG_VALUE = .TEMP_VAC_DESCCOBGS$L_VALUE_VALUEO); 


ELSE 
ARG_VALUE = 1; 


Get array information. 
DBGSSTA_TYP_ARRAY(.TYPEID, DSCADDR, DUM1, NDIMS, DUM2, DUM3); 


' Check to see that the input value in the proper range. 
If not signal novalue. 
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If g ARG VALUE LEQ 0 OR .ARG_VALUE GTR .NDIMS 

SIGNAL (DBGS_INVARRDIM) ; 
| Make a typeid for the result desc. 
RSTPTR = DBGSTYPEID_FOR_ATOMIC(DSCSK_DTYPE_L, 32, FALSE); 
Make a value descriptor for the result. 
RESULT = DBGSMAKE_VALUE_DESC(.RSTPTR, 0, RSTSK_TYPE_ATOMIC); 
Set up pointers. 


STRIDEVEC = .DSCADDR + 20; 
BOUNDVEC = .STRIDEVEC + 4 © .NDIMS; 


Calculate the length. 
ARG VALUE = .ARG VALUE - 


ARG 1; 
RESOLTCOBGSL YALOE. VALUEOS = 
~BOUNDVETC2 * TARG_VALUE + 1] = .BOUNDVECC2 * .ARG_VALUE] + 1; 


Se 


> bd ts 
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END; 
CTOKENSK TICK_POS): 
BEGIN 
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! Check to see that the incoming typeid is one of the possible 
RSTs for this operator. 


if .TYPEIDCRSTSB_KIND) EQL RSTSK_DATA 
DBGSSTA_SYMTYPE(.TYPEID, DUM1, TYPEID); 


IF .TYPEIDCRST$B_FCODE] NEQ RSTSK_TYPE_ENUM AND 
-TYPEIDCRSTS$SB_F CODE) NEQ RSTSK-TYPE~SUBRNG 


SIGNAL (DBG$_OPNOTALLOW, 1, OPERATORCTOKENSB_OPLEN]); 


! There should be an argument List of one. If there is not, 
signal the error now. 


iF NOT .OPERATORCTOKENSV_ARGUMENT_LIST) 

SIGNAL (DBGS_INVARGLIS, 1, OPERATORCTOKENSB_OPLEN)); 
Make a typeid for the result desc. 
RSTPTR = DBGSTYPEID_FOR_ATOMIC(DSCSK_DTYPE_L, 32, FALSE); 
Make a value descriptor for the result. 
RESULT = DBGSMAKE_VALUE_DESC(.RSTPTR, 0, RSTSK_TYPE_ATOMIC); 
Get the argument 
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ARG_LIST = DBGSGET_BIF _ARGUMENTS(1, OPERATORCTOKENSB_OPLEN]); 


Jf 9g, 'VPELBCRSTSO_F CODE? EQL RSTSK_TYPE_SUBRNG 
BEGIN 


! Make sure the parent type of the subrange is enumeration. 
And make the parent type the new type. 


OBGSSTA_TYP SUBRNG( .TYPELD TYPEID, LOWBOUND, HIGHBOUND, DUM3); 
IFT YPEIDCRST _FCODE) NEG RSTSK_fYPE_ENUM 


ose tee TL, 1, OPERATORCTOKENSB_OPLEN)); 


! Find out which component in the typeid List is the one specified 
! by fhe symid in the argument List. Then return the index as the 
! position of this element. If the component was not found signal 
an error. 


TEMP_VAL_DESC = .ARG bistCtd: 
Vd . TEMP_VAL_DESCCDBGSL_DHDR_TYPEID) NEQ .TYPEID 


SIGNAL (DBGS_INVARGLIS, 1, OPERATORCTOKENSB_OPLEN]) ; 


oo 


NOUS WP 


wooo 


wn 


INDEX = 0; 

COMPONENT LIST = TYPEIDCRSTSA_TYPCOMPLST): 

WHILE . INDEX LEQ .TYPE 
GIN 


] 
RSTSC_TYPCOMPCNTJ-1 DO 


LESAN LSSSLSAE 
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DCR 
08 10C 
09 DBGSSTA_SYMVALUE( .COMPONENT LISTC.INDEX], DST ade, DUM1); 
10 IF TEMP_VAL_DESCCDBGSL_VALOE_VALUEO EQL ..DST_VALUELO) 
\¢ BEGIN 
1 RESULTCDBGSL_VALUE_VALUEO] = . INDEX; 
98 14 EXITLOOP; 
99 15 EN 
600 6 ELSE 
601 1 INDEX = . INDEX + 1; 
O08 18 END; 
60 19 
oe ’ IF .INDEX GEQ .TYPEIDCRSTSL_TYPCOMPCNT) 
t's ; SIGNAL (DBG$_CMPNOTFND); 
ra 4 END; 
609 5 
610 $ CTOKENSK _TICK_PRED): 
ot BEGIA 
$8 § ! Check to see that the incoming typeid is one of the possible 
$18 } RSTs for this operator. 
616 5 if .TYPEIDCRSTSB_KIND) EQL RSTSK_DATA 
oi8 7 DBGSSTA_SYMTYPE(.TYPEID, DUM1, TYPEID); 
620 IF .TYPEIDCRST$B_FCODE) NEQ RSTSK_TYPE_ENUM AND 
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IESeoc19Be QU:GO:52  YABGIELSSSRZneaenZ4s., Page af 
. TYPEIDCRSTSB_FCODE] NEQ RSTSK_TYPE_SUBRNG | 
SIGNAL (DBGS_OPNOTALLOW, 1, OPERATORCTOKENSB_OPLEN]); 
Make a value descriptor for the result. 
RESULT = DBGSMAKE_VALUE_DESC(.TYPEID, 0, RSTSK_TYPE_ENUM); 


| 
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We expect an argument List. If there isn't one, signal the error. 


if NOT - OPERATORC TOKENSV_ARGUMENT_LIST) 
SIGNAL (DBG$_INVARGLIS, 1, OPERATORCTOKENSB_OPLEN)); 


VIEW —OOCONOU SW 


Get the argument 
ARG_LIST = DBGSGET_BIF _ARGUMENTS(1, OPERATORCTOKENSB_OPLEN)); 
Fad re eena ee Femme? EQL RSTSK_TYPE_SUBRNG 

BEGIN 

Make sure the parent type of the subrange is enumeration 
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7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
f 
76 DBGSSTA TYP_SUBRNG(.TYPEID, RSTPTR, LOWBOUND, HIGHBOUND, DUM3); 
26 LF RSTPTRERSTSB_F CODE NEG RSTSK_TYPE_ENUM 
i 5 SIGNAL (DBGS_OPNOTALLOW, 1, OPERATORCTOKENSB_OPLEN)); 
650 7 < 
$3) re) Perform the operation 
re 769 DBGSPRED_ENUM(.ARG_LISTC1}, .RESULT); 
654 770 
22? aa END; 
£28 rg CTOKENSK_TICK_SIZEJ: 
es a 
660 76 ! There should be no argument list. If there is one, signal the 
$8) ee error now. 
ee$ 718 if jOPERATORE TOKENSV_ ARGUMENT LIST] 
665 HY SIGNAL (DBGS_SYNERREXPR, 1, UPLIT BYTE (ZASCIC *(") ); 
es? e 5 } Make a typeid for the result desc. 
o8) . 5 RSTPTR = DBGSTYPEID_FOR_ATOMIC(DSCSK_DTYPE_L, 32, FALSE); 
of) 4 Make a value descriptor for the result. 
ers f RESULT = DBGSMAKE _VALUE_DESC(.RSTPTR, 0, RSTSK_TYPE_ATOMIC); 
675 791 ' Get the bit size of the input typeid. This may be a symbol or a 
2 ie 


H 9 | 
GLA 16-Sep-1984 01:20: AX-11 Bliss-32 V4.0-74 Page 53 
idee al 10280871386 93:99:39 DEBUG. SRC JDBGLANGOP .832;1 . ab) 
678 794 DBGSSTA_SYMSIZE(.TYPEID, RESULTCDBGSA_VALUE_ADDRESSJ); | | 
g ; 3 END; 
7 . 
§ 7 CTOKENSK_TICK_SUCCI: 
? 7 BEGIA 
685 heck to see that the incoming typeid is one of the possible 


‘¢ 
! RSTs for this operator. 


3 7 1 

3 3 1 

: } 

: 178 

:1 1 

a i | 
:1 1 : i | 
3 i ! < if gg," VPEIOCRSTSO_KIND] EQL RSTSK_DATA | 
; 1690 1806 DBGSSTA_SYMTYPE(.TYPEID, DUM1, TYPEID); | 
; 1698 1808 IF .TYPEIDCRSTSB_FCODE) NEQ RSTSK_TYPE_ENUM AND 
; 1693 09 “i gIVPEID RST$B-FCODE) NEQ RSTSK-TYPE~SUBRNG 
; 1695 1 SIGNAL (DBG$_OPNOTALLOW, 1, OPERATORCTOKENSB_OPLEN)); | 
; 1697 1818 } Make a value descriptor for the result. | 
; 1699 HE RESULT = DBGSMAKE_VALUE_DESC(.TYPEID, 0, RSTSK_TYPE_ENUM) ; 
; 178) 1817 ; We expect an argument List. If there isn’t one, signal the error. 
; 1708 1818 iF NOT .OPERATORCTOKENSV_ARGUMENT_LISTJ | 
: 1205 18 1 SIGNAL (D@G$_INVARGLIS, 1, OPERATORCTOKENSB_OPLEN)) ; | 
; 1707 + 5 ! Get the argument 
; 1709 18 5 ARG_LIST = DBGSGET_BIF_ARGUMENTS(1, OPERATOR[ TOKENSB_OPLEN)); 
: 1711 1 ‘ IF_.TYPEIDCRSTSB_FCODE) EQL RSTS$K_TYPE_SUBRNG 
: 1hg 1859 THEN EGIN | 
3 1714 1830 4 | 
3 1 Ay 18 1 ? Make sure the parent type of the subrange is enumeration | 
; 1719 1838 4 DBGSSTA_TYP_SUBRNG(.TYPEID, RSTPTR, LOWBOUND, HIGHBOUND, DUM3); | 
: 1718 18 ‘ 4 IF jRSTPTRERSTSB_F CODE } NEG RSTSK_fYPE_ENUM 
; 7 9 i 4 i SIGNAL (DBG$_OPNOTALLOW, 1, OPERATORCTOKENSB_OPLEW J); 

$17 1 38 : 

: HA 5 1840 Perform the operation 

: 1725 1841 DBGSSUCC_ENUM(.ARG_LISTC1], .RESULT); 

2 17 $ 1 4g 

: 1358 ibe pie 

; 7 9 ig CTOKENSK TICK VAL): 

3 1731 1 

3; 17 § 1848 ! Check to see that the incoming typeid is one of the possible 

: 4 : $3 } RSTs for this operator. 


uw 


FAN OOONOUES wn 


PEAS MANNIINUIVI 
NOw 


SSNS NN SSS Ss 


DANA ATIUVIVIVN ES BEES S LPL E 
DONOUES WN "OOOO FWwhr— 


SAIN NN NO 


MEUM —O OCONOULS WN oO 


aN 

SCS 

wn 
~~ 


Coco 
oo 


SSRRAVES SANOFI SOO VOae 


ee a ee a a a ee ee ee ee ee ae a ee a el el a a ed 
SNS Ss 


ee ee ee ce ec ee ee ee ee ee ee ec ee ee ce el ee ee ce ee a ee ee ee ee ee ee 


PUPIL AIA AAEM BBB BEBE FA. AINA AINA MAA. ANNA AHI 


SSSSSSSSsesesesses 


~ 
oO 
st 


9 
sé-sep-1964 01:20:50 Yanett BLigs=52 vé-0-742 


if g' VPEIDCRSTSB_KINDI EQL RSTSK_DATA 
DBGSSTA_SYMTYPE(.TYPEID, DUM1, TYPEID); 
wy - HPUIDERSTHR:FCQREd AES AETRESTYPEElgtnd™® 
THEN = oe 
SIGNAL (DBGS_OPNOTALLOW, 1, OPERATORCTOKENSB_OPLEN)); 
} We expect an argument List. If there isn’t one, signal the error. 
IF NOT .OPERATORCTOKENSV_ARGUMENT_LISTJ 
SIGNAL (DBGS_INVARGLIS, 1, OPERATORCTOKENSB_OPLEN)) ; 
} Get the argument 
ARG_LIST = DBGSGET_BIF _ARGUMENTS(1, OPERATORCTOKENSB_OPLEN)); 
HF | ELBERS TOR _/ CORE? EQL RSTSK_TYPE_SUBRNG 
BEGIN 


! Make sure the parent type of the subrange is enumeration. 
And make the parent type the new type. 


DBGSSTA_TYP_SUBRNG(.TYPEID, TYPEID, LOWBOUND, HIGHBOUND, DUM3); 
IF . TYPEIDCRST$B_FCODE) NEQ RSTSK_fYPE_ENUM 


N 
END SIGNAL (DBG$_OPNOTALLOW, 1, OPERATORCTOKENSB_OPLEN)) ; 


! We must now convert the value of the argument to an integer. 
' To do this we must set up a new value descriptor. We allocate 
' a skeleton descriptor and fill in some of the fields. 


TEMP_VAL_DESC = DBGSMAKE_SKELETON DESC (DBGSK_VALUE_DESC, 4); 
TEMP_VAL_DESCCDBG$B_DHDR_KIND) = RSTSK_DATA; 
TEMP_VAL_DESCCDBGS$L_DHOR-TYPEID) = 0; 

TEMP_VAL_DESCCDBGSL_VALUE_ POINTER] = TEMP_VAL_DESCCDBGSA_VALUE_ADDRESS); 
TEMP_VAL_DESCLDBG$B_DH ODE] = RSTSK_TYPE_ATOMIC; 
TEMP_VAL_DESCUDBG$B_VALUE_CLASS) = DSCSR_CLASS_S; 
TEMP_VAL_DESCCDBG$B_VALUE_DTYPE] = DSCSK_DTYPE_L; 
TEMP~VAL_DESCCDBG$W_VALUE_LENGTH) = 4; 


' Now call the conversion routine. Put the result back into 

the temporary descriptor. 

TEMP_VAL_DESC = DBGSEVAL_LANG_OPERATOR(DBGSGL_CONVERT_TOKEN, 
eARG_LISTCIJ, .TEMP_VAL_DESC); 


' Check to see that the input value is in the proper range. 
If not signal novalue. 


t 

' 

i 

if - TEMP _VAL_DESCEDBGSL_VALUE_VALUEQ} LSS 0.OR 

THEN EP VAL ADESC DBGSL“VALUE-VALUEO) GEQ .TYPEIDCRSTSL_TYPCOMPCNT) 


} 


g 
Etech QLG98T  WMMGNE S4SGSEEaMGdZB.. ote dE 


: 


; 1738 SIGNAL (DBG$_NOVALUE) ; 

: V7 4 ! Get the symbol RST from the type RST 

; 1736 191 COMPONENT_LIST = TYPEIDCRSTSA_TYPCOMPLST); | 
; 179 Ht RSTPTR = COMPONENT ESTE TERP VAL DESCEDAGSL.. VALUE . VALUEOI2; 
; 1799 1915 ! Make @ value descriptor for the result. | 
; 1 01 1917 RESULT = DBGSMAKE_VALUE_DESC(.TYPEID, .RSTPTR, .TYPEIDCRSTSB_FCODE)); | 
; ! : 1318 H Get the value of this RST element. | 
; 1805 1921 DBGSSTA_SYMVALUE(.RSTPTR, DST_VALUECO, Ut); | 
; 186 19 : RESULTCDBGSL_VALUE_VALUEO) = 7.0ST_VALUECO); 
> 1808 1924 END; | 
: 1810 13 3 COTHERWISE] 
> 181 19 : whist . 
> 181 1928 $DBG_ERROR("DBGLANGOP\DBGSEVAL_ADA_TICK, invalid token sub-code'); 

: 181 1929 END; | 
3; 1814 1930 

: 1815 1931 TES; | 
; 1816 19 é 
: H+ 3 3 ? Return a pointer to the result value descriptor. 
: 1819 1935 RETURN .RESULT; | 
: 1820 1936 END; | 


-PSECT DBGSPLIT,NOWRT, SHR, PIC.0O 

49 41 52 54 53 4E 4F 43 44 0c 00 P.AAS: .ASCII <12>\"CONSTRAINED\ 3 
8 4 0293 P.AAT: .ASCII <1> 3 

50 4F 47 4E 41 4C 47 42 44 H ; 95 P.AAU: .ASCII \3DBGLANGOP\<92>\DBGSEVAL_ADA_TICK, inva\ $ 

54 SF 41 464 41 SF 4C 41 56 4 AG 3 

61 76 6€ 69 QO + 5 

20 6€ 65 68 6F 74 20 64 69 6C 0028 ASCII \Lid token sub-code\ 3 
65 64 6F 002C6 3 


-PSECT DBGSCODE.NOWRT, SHR, PIC.0 


OFFC 00000 ENTRY DBGSEVAL ADA_TICK, Save R2.R3,R4,R5,R6,R7,—- ; 1281 
R8,R9,R10,R1T : 
8 9000 G 0 E 03 MOVAB DBGSSTA_SYMTYPE, R11 ; 
A 09 O06 E MOVAB ODBGSSTA-TYP_SUBRNG, R10 : 
g o0oo000 HF FE Sse SUNS Gugtsuenn. ‘pao 
4 08 AC b 1A VL OPERATOR RG $ 1340. 
? AG ( 1 MOVZ2WL 6(R4), OPCODE ; | 
a Si Need 
00000000" €F 9F PUSHAB P.AAS 3 1347) 


~$eo-1904 04:20:50 YMMeND Bt ing=s2 v4. 0-762 


1 oD PUSHL #1 
00028250  8F pp PUSHL #164432 
0754 BRW 
02 CMPL PCODE, #2 
BEQL $ 
0 4 val | SCvL 1TPe D, RO 
be 4 Ab *} CHEE gcd ; 
s & i PUSHAB TYPEID 
4 AE OF PUSHAB D 
3 DD SHL R 
FB CALLS DBGSSTA_SYMTYPE 
06 =A p OVL TyBE D, R3~ 
18 =#AS OA MOVZBL 24(R3). R2 
04 § 1 CMPBOR2, #4 
18 1 BEQL 4 
09 5 94 CMPB OS séR2, #9 
131 BEQL = 4$ 
01 52 91 CMPB sé, #1 
0€ 13 BEQL © 4$ 
OC AG OF PUSHAB 12(R4) 
1 DD PUSHL #1 
000289CA 8F ODD PUSHL #166346 
69 03 FB CALLS #3, LIBSSIGNAL 
04 32 91 CMPB RD, #4 
: Hy tsk as 
23 1 BNEQ 
64 0B 3 BBC #11, (RO), 6$ 
0c ad oF PUSHAB 12(R4) 
00028838 Br DD PUSHL #165944 
69 ; FB CALLS #3, LIBSSIGNAL 
4 D4 CLRL = (SP) 
53 DD PUSHL R. 
0000v ct : FB CALLS ’ DBGSMAKE _VALUE _DESC 
6 3 MOVL AT 
09 18 =A 91 CMPB geins, #9 
20 ie $f BUSHAB DUM1 
1c AE OF PUSHAB HIGHBOUND 
24 AE 9F PUSHAB LOWBOUND 
C PUSHA a 
A 3 F CALLS DBGSSTA TYP_SUBRNG 
2 10 A p MOVL Refer 
04 1 Ag ; CAPE RRO) 
0c ad oF PUSHAB Mena 
000289CA 8F DD PUSHL #166346 
° 3 5 movt tResue ye 
$8 Ab 1¢ aE p MOVL odin 32(RESULT) 
068 BRW 


See Se Se Se Se Ge Se Se Se Ge Se Ge Se Se Se Ge Fe Se Ge Se Ge Se Ge Ge Ge Se Ge Se Se Se Se Se Se Se Se Be Be Se Se Se Se Se Se Se Se Se Se Fe Se Se Se Bs Se Se Se Se 
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9 | 
A 1b-se -1984 01:20: AX-11 Bliss-32 V4.0-74 Page 57) 
idee 1 ~300n 138% 94:99:30 DEBUG. SRCJDBGLANGOP.B32; 1 ° ab 
6E A3 9 DF 8$: MOVAB 44(R3), COMPONENT_LIST : 1409 
10 AE 85 068 06 + ROVL MPONENT_LIST, RSTPTR : 1a 
19 64 0B 4 EB 9S BBC #11, (R4), 10$ : 14 ¢ | 
OC Ad SF OODEF PUSHAB VecRs) + 1427. 
1 0D Fe PUSHL # : 
000000006 g F F CALLS a, DBGSGET_BIF_ARGUMENTS : 
D FB MOVL RO, ARG_LIS : 
5 94 A? D F MOVL 4 ARG_LIST), TEMP_VAL_DESC + 1428 
2 0 ag ! nove (TERP_VAL_DESC)> ARG_VALUE : 1¢ 9 
52 83 po 1 10$ MOVL #1, ARG_VALUE : 14 $ 
146 AE 9F 00108 11$ PUSHAB + 14 
04 AE OF 4 PUSHAB COMPONENT_LIST : 
19 AE 9F 0011 PUSHAB NDIMS : 
10 AE 9F 00114 PUSHAB DUM2 : 
iC AF 9F 00117 PUSHAB DSCADDR : 
DD OO11A PUSHL ; 
000000006 00 : FB 011 CALLS #6, DBGSSTA_TYP_ARRAY : 
D5 001 TSTL  ARG_VALUE > 1441 
Q 15 001 BLEG ; 
08 AE D1 00127 CMPL § ARG_VALUE, NDIMS : 
0 15 00128 BLEQ Sts : 
00028850 8F DD 4) D 12$:  PUSHL #165968 + 1443 
69 o1 FB 133 CALLS #1, LIBSSIGNAL ; 
D7 00136 13$:  DECL AR + 1445 
50 00 Bes 09 1 8 move @COMPONENT_LISTCARG_VALUEJ, RO + 1449 
7E : 7D 0013F Ova #32, =(SP) + 1451 
8 DD 00142 PUSHL # : 
000000006 00 g FB 00144 CALLS #3, DBGSTYPEID_FOR_ATOMIC : 
10 AE 0 pO 0148 MOVL RO, RSTPTR : 
18 11 OO14F BRB 1 F 
10. AE 5 po 0151 14$:  MOVt RO, RSTPTR + 1454 
09 18 AO 91 00155 CMPB 24 (RO), rT) : 1455 
11. 12 00159 BNEQ 4 F 
16 AE OF 0138 PUSHAS DUM3 + 1457 
08 AE 9F 0015€ PUSHAB DUM2 : 
28 «= AE OOF 00161 PUSHAB DUM1 : 
1C AE OF 0164 PUSHAB RSTPTR F 
50 DD 00167 PUSHL R : | 
6A 0 FB 0169 CALLS #5, DBGSSTA_TYP_SUBRNG : 
0 19 AE p 0166 15$: MOVL R , RO t 1460 | 
E 18 AO 9A 001 MOVZBL 24(RO). =(SP) F 
7E 04 00174 CLRL =< SP) : 
DD 1% PUSHL R : 
0000v cf FB 0017 CALLS #3, DBGSMAKE_VALUE_DESC ; 
6 Dd 17 MOVL RO, RESULT : | 
58 oc A 4 C1 001 ADDL3 #26, DSCADDR, STRIDEVEC > 1461 
08 AF DO 001 MOVL NDIMS, R ; 1462 | 
684 p 189 MOVAL (STRIDEVEC)CROJ BOUNDVEC : 
50 01 1 ASHL #1, ARG VALUE Ro 5 1463 | 
20 Ab 6340 p 191 MOVL  (BOUNDVEC) EROS, 32(RESULT) ; 
F6 31 001 BRW 7 : 342 
03 ; } 199 16$:  CMPL OP CODE. #3 > 1468 | 
19C BEQL 7 3 
0162 31 0019€ BRW 31$ : 


Page 38 
-32 ve 20-745. (1 | 
WESeoct98e OU:89:9  YAUSHE ekissad? aeons 
TYPEID, RO : | 
ac p 13} 178: py apCRO) #6 ; 1476) 
' 
0B #! 1A PUSHAB TYPEID | 
AE OF OOIAE PUSHER ; 1478 
8h DD 1B} CALS DRGSSTA_SYMTYPE Peg 
: pO O01RG ves: Rot. Ive. 
AS Ok OoiBA yt ela hl + 1479 
RSH PRs Fisas 
on tsa 
3. on in 
Re FOOTED <gee rl 
OF Ot bb O15 PUSHL #3. LIBSSIGNAL oo 
BF DD O01 CALLS #3, LI : 1489 
chee & Ge pe 
91 OO1E NEQ 248 1$ 
09 33 ¢ 8 208: one #11, (RO), 2 
08 3 QO1E : PUSHAB \¢ : 
64 Oc AS SF OO1E9 PUSHL AY S s0a| 
BF BO BolEe CALLS #3. LIBSSIGNAL 
poozeese Os Fe OOS CALLS 83 | 
69 2 ee ee a ee : 
i DD OOtFB CALLS. #3, DBGSMAKE_VALUE_pESC ; 1507 
C ; 
CF 03 FB 0202 CHB gens), 49 : 1510 
56 91 00 EQ —-33$ 
09 18 a3 12 00209 PUSHAB See ; 
7 AE OF 0090 PUSHAB LOMBOUND 
2 AE OF 0ST PUSHAB RSTPTR eta 
¢ AE 9F 00214 PUSHL R DBGSSTA_TYP_SUBRNG : | 
53 DD 00 Vy CALLS ae tern R3 | 
6A 06 Q t CHPR BACRS), ; 1513, 
3 10 A 6 aL ; 
aa 18 h 13 r Push (R4) ; nt 
OC Ot bb 90358 PUSHL A}. IBSSIGNAL : 1519 
000289CA Ee 0088 : hove RS BOUND, $2(RESULT) 1307 | 
69 ; D 228: MOVL GHBOUND , s Nase | 
AG 18 BE BRW (R3), COMPONENT_LIST ; | 
se ostt ; B 238: ROVAB (RS). RO RO : | 
A 3 4 MOVL 4 OMPONENT LISTCROJ, : 15 
5 i 6 De 0s48 ROVL” <4 RO), RSTPTR : 1 
F Fe ok ef 3 ere rt (R4), 258 
AE Ose Fi Be5eS 2es:; oat : 
ad 08 


pryoee 93:49:09 — EARaue. She Sbeer ances 4351 


_— 
foe 
om 

eeo 


OBGLANGOP 
vou=008 


OC AG OF 9 PUSHAB 12(R4) 
1 OD C PUSHL 
000000006 9 F CALLS #2, DBGSGET_BIF_ARGUMENTS 
D MOVL RO. ARG_LIST 
5 94 A? D MOVL (ARG_LIST), TEMP_VAL_DESC 
2 0 A; p MOVL 2(TEMP_VAL_DESC)> ARG_VALUE 
52 83 pd 7 358: MOVL #1, _ARG_VALUE 
14 AE 9F 00275 26$:  PUSHAB DUM 
04 AE i 7 PUSHAB COMPONENT_LIST 
10 AE 9F 0027B PUSHAB NDIMS 
10. AE oF 43 PUSHAB DUM2 
1c AF F PUSHAB DSCADDR 
53 DD PUSHL R 
000000006 00 06 F 6 CALLS #6, DBGSSTA_TYP_ARRAY 
D 6 8D TSTL | ARG_VALUE 
Q 1 F BLEG 7$ 
08 AE D1 00291 CMPL § ARG_VALUE, NDIMS 
: 15 00295 BLEG 
00028850 8F DD 00297 27$:  PUSHL #165968 
69 o1 FB ° 9D CALLS #1, LIBSSIGNAL 
D AO 28$:  DECL ARG_VALU 
50 00 Bes 09 0 A mov @COMPONENT_LISTCARG_VALUE), RO 
7E 20 7D 002A9 MOVO #32, =(SP) 
08 DD O02AC PUSHL # 
000000006 00 0 FB 0 AE CALLS #3, DBGSTYPEID_FOR_ATOMIC 
10. AE 50 pO 0028 MOVL RO, RSTPTR 
1B 11 00289 BRB 30$ 
10 AE 50 DO 0028B 29$ MOVL RO, RSTPTR 
09 18 AO 91 002BF CMPB ga iR0), “9 
11 12 00 C3 BNEQ 0$ 
14 AE OF 002C PUSHAB DUM3 
08 AE OF 00 8 PUSHAB DUM2 
28 «AE «(OOF 002CB PUSHAB 
1C Ar OF OO02CE PUSHAB RSTPTR 
50 DD 00201 PUSHL 
6A 05 FB 0203 CALLS #5, DBGSSTA_TYP_SUBRNG 
0 10 AE p 0206 30$: MOVL RSTPTR, 
E 18 AO 9A OO2DA MOVZBL 24(RO). =(SP) 
7E D4 0 De CLRL = (SP) 
50 DD O02E PUSHL R0 
ct g FB 00 Eg CALLS #3, DBGSMAKE_VALUE_DESC 
4 D 6 a MOVL RO RE SUL 
A 14 ¢ EA ADDL3 #26, DSCADDR, STRIDEVEC 
08 AE DO OO2EF MOVL ON 
684 DE F3 HOVA (STRIDEVEC)CROJ, BOUNDVEC 
Ab 04 A34 Bo FA MOVL 4 (BOUNDVEC)C(R2), 32(RESULT) 
048 BRW 76$ 
04 b| 31$: CMPL PCODE, #4 
0 : BEQL $ 
00st 3 BRW $ 
50 “egg 0 328: MOVL  TYPEID, RO 
06 oe’ F CMPB (RO), #6 
2 3 BNEQ 
04 AC 9F 0031 PUSHAB TYPEID 
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24 AE OF 00318 PUSHAB DUM1 ; 
83 FB D031 CALLS #3, _DBGSSTA_SYMTYPE ae 
3 06 =A 8 33$: MOVL YPELD, Hi : 1596. 
1 18 =A 4 CMPB 4(R3), #1 : | 
0 8 BEQL 4 : 
OC AG OOF A PUSHAB 12(R4) + 1598) 
1 DD D PUSHL : 
000289CA BF DD F PUSHL #166346 : | 
69 3 Fe CALLS # LIBSSIGNAL : 
19 64 ‘ 34$: BBC wii, (R4), 35 + 1603) 
oc ad oF ¢ PUSHAB | (R4) + 1609 | 
000000006 : p f 41 CALLS ne, DBGSGET_BIF_ARGUMENTS : | 
D 48 MOVL RO. ARG_LIS ; 
5 04 A? OD 4B MOVL (ARG_LTST), TEMP_VAL_DESC + 1610 
2 0 A’ D6 AF MOVL 2(TEMP_VAL_DESC)> ARG_VALUE ; 1611 
52 83 pO § 5 358: MOVL #1, ARG_VALUE + 1614 
14 AE 9F 00358 36$: — PUSHAB DUM3 ; 1618 | 
08 AE 9F 00358 PUSHAB DUM2 : 
10 AE 9F 0035 PUSHAB NDIMS ; 
2¢ «AE OOF 0036 PUSHAB DUM1 : 
1C¢ AE 9F 00364 PUSHAB DSCADDR : 
53 DD 00367 PUSHL R ; 
000000006 00 06 FB 00 $9 CALLS #6, DBGSSTA_TYP_ARRAY : 
D5 00 9 TSTL § ARG_VALUE : 1623 
g 15 0037 BLEG 6-37 : 
08 AE D1 00374 CMPL  ARG_VALUE, NDIMS : 
15 00378 BLEG 38$ ; 
00028850 8F DD 0037A 37$:  PUSHL #165968 + 1625 
9 1 FB 00380 CALLS #1, LIBSSIGNAL : 
E 20 7D 00383 38$: MOVO #32, -(SP) + 1629 
8 DD 00 86 PUSHL F 
000000006 00 9 FB 0038 CALLS #3, DBGSTYPEID_FOR_ATOMIC ; 
10 AE 0 DO 0038F MOVL RO. RSTPTR : 
02 DD 0 9 PUSHL > 1633 
E 4 0039 CLRL =(SP) a 
18 AE 0D 0039 PUSHL RSTPTR : | 
0000v CF 9 FB 0039A CALLS #3, DBGSMAKE_VALUE_DESC F 
56 D 0 OF MOVL RO RESUL : | 
58 oc A 14 (1 Ag ADDL3 #26, DSCADDR, STRIDEVEC : 1637 
2 08 AE DO 003A MOVL DIMS, RO : 1638) 
684 4 AB MOVAL (STRIDEVEC)CROJ, BOUNDVEC ; 
p AF DECL  ARG_ + 1642. 
50 5 1 78 00381 ASHL #1, ARG_VALUE, RO > 1646 | 
C4 B3 MULL2 #2. R2 ; 
53 04 A34 6342 €3 0038 SUBL CBOUNDVEC?CR2I. 4(BOUNDVEC)CROJ, R3 : | 
0 Ab 01 A f BF MOVAB 1(R3), 32(RESULT) : 
03 C4 BRW 76$ : 1343 
05 C7 39$:  CMPL  OPCODE, #5 : 1648) 
CA BEQL 40S : 
0104 CC BRW 50$ : 
50 04 aC po CF 408: MOV TYPEID, RO > 1654 | 
6 14 AO 91 D3 CMP 20(R ». #6 ; 
0B 12 0030 BNEQ 1$ : 
04 AC 9F 00309 PUSHAB TYPEID > 1656 | 


ae 
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24 AE OF 0030C PUSHAB DUM1 : 
; DD O03DF PUSHL 9 : | 
F E1 CALLS #5, DBGSSTA_SYMTYPE : 
‘7 2 £4 41$:  MOVL TyPEID. R2 : 1658 
4 8 A £8 CMPB 4(R2), #4 : 
1 EC BEQL 42$ ; | 
09 18 A2 E CMPB 0s-s«o24(R2), #9 + 1659. 
OE F BEQL gs : | 
OC AG OF OO3F PUSHAB 12(R4) + 1661) 
1 DD 003F7 PUSHL #1 : 
000289CA 8F DD 003F9 PUSHL #166346 : 
69 3 FB FF CALLS #3 LIBSSIGNAL : 
64 8 f 402 42%:  8BS wii, (RO), 43 : 1666 
Oc AG SOF 004 PUSHAB ecRa) + 166 
1 DD 004 PUSHL @# : 
00028838 8F DD 04 PUSHL #165944 ; 
69 3 FB 0041 CALLS #3, LIBSSIGNAL : 
E 7D 00414 438: OVO #32, -(SP) : 1672) 
DD 00417 PUSHL # F 
000000006 00 : FB 00419 CALLS #3, DBGSTYPEID_FOR_ATOMIC ; 
10 AE 0 pO 00420 OVL RO, RSTPTR : 
9e DD 00424 PUSHL # + 1676 
E D4 004 6 CLRL. = (SP) : 
18 AF DD 004 PUSHL RSTPTR ; 
0000v cr : FB 00428 CALLS #3, DBGSMAKE_VALUE_DESC : 
6 0 0 04 9 L 0; RESULT ; 
OC AG 9F 004 12(R4) : 1680 
01 DD 004 PUSHL #1 ; 
000000006 99 08 FB 0438 CALLS We, DBG$GET_BIF_ARGUMENTS ; 
DO 0043F MOVL ¥ : 
09 18 A2 91 00442 CMPB =s-s«-24 (R2) , "#9 + 1682 
29 12 0446 BNEQ  44$ : 
146 AE 9F 0044 PUSHAB DUM3 + 1689 
1C AE OF 00448 PUSHAB HIGHBOUND ; 
4 AE OF 0044E PUSHAB LOWBOUND ; 
AC 9F 00451 PUSHAB TYPEID ; 
52 DD 00454 PUSHL R ; 
$ 0 FB 0456 CALLS #5, DBGSSTA_TYP_SUBRNG : 
0 04 =A p 499 MOVL TYPEID. RO : 1690 
0 18 «OA } 04 D CMPB =s-s-24 (RO), #4 ; 
0& 13 00461 BEQL 44$ ; 
0c AG SF 00463 PUSHAB 12(R4) : 1692 
1 DD 00466 PUSHL #1 : 
000289CA 8F DD 0468 SHL #166346 ; | 
$9 3 F AGF CALLS #3, LIBSSIGNAL ; 
5 04 A? DO 00471 448: VL 4CARG_LIST), TEMP_VAL_DESC : 1700 
04 AC 8 AS p 475 CMPL  8( TEMP_VAL_DESC), ~TYPEID > 1701 
0€ 47A a 0 s«4 S$ : 
OC AG OF 0047C PUSHAB VecR4) : 1703 
1 0D 0047F PUSHL @# ; 
00028838 8F DD 00481 PUSHL #165944 ; 
69 ; FB 00487 CALLS #3, LIBSSIGNAL : 
D4 0048A 45$: CLRL INDEX : 1705 
06 A C C1 004 ¢ ADDL3 #44 TYPEID, COMPONENT _LIST > 1706 | 
5 04 AC 00 004 MOVL TyPEID R ; 170 
28 A Q1 C3 00495 468: —SUBLS_ #1. (Re), RO : | 
5 Di 0049A CMPL INDEX, R ; 


71986 $2:99:0) — EoEaUG. Sac Sbeccancor.039;1 P0908) 


22 14 BGTR 48% ; 
AE OF PUSHAB DUM + 1709) 
AE OF PUSHAB DST_VALUE : 
BE43 DD SHE a ORPONENT LISTCINDEX] : 
000000906 00 0 FB CALLS #3, DBGSSTA_SYMVALUE : 
4 BE 20 A p CMBL ; {TEMP_VAL-DESC) , @DST_VALUE : 1710 
20 Ab 98 06 MOVL INDEX, 32(RESULT) : 1713) 
04 BRB 48$ ; arg 
3 06 INCL ‘INDEX + 171 
3% BRB ; 1707 
28 A2 : pI CMPL INDEX, 40(R2) + 1720 
9 BLSS 9 : 
00028848 8F oD PUSHL #165960 + 1722 
69 01 re CALLS #1, LIBSSIGNAL : 
028 3 BRW 6$ : 1342 
06 | CMPL PCODE, #6 + 1726 
BEQL 1$ : 
009) 37 BRW ag : 
50 06 AC DO MOVL TYPEID, RO : 1732! 
06 14 AO 91 CMPB E06 », #6 : | 
0B 12 BNEQ 2$ : 
04 AC OF PUSHAB TYPEID 3 1734) 
24 AE OF PUSHAB DUMI1 : | 
50 DD 004E PUSHL R : 
$8 0 FB CALLS #3, DBGSSTA_SYMTYPE ; 
5 06 ac D F MOVL TYPEID, R2 : 1736) 
04 18 «Ad 91 4 CMPB g4(R », a4 : 
14 13 9 BEQL 3$ : 
09 18 A2 91 004 CMPB g4(R2), "9 : 1737) 
OE 13 004 BEQL 3$ : 
Oc As 9F 005 PUSHAB 12(R4) ; 1739. 
01 DD 005 PUSHL #1 : | 
000289CA er DD 09 PUSHL #166346 ; 
69 3 FB 00 CALLS #3, LIBSSIGNAL : 
04 DD OOSOE 53$: PUSHL #4 : 1743) 
D4 0051 CLRL. = = (SP) : 
52 DD 0051 PUSHL R ; 
0000v cr 93 8 O14 CALLS ’ » DBGSMAKE_VALUE_DESC ; | 
64 0B 3 051 BBS wii, (R4), 54$ ; 1747 
Oc AG SOF 005 PUSHAB 12(R4) : 1749 
1 DD 00 PUSHL 3 
00028838 8F DD PUSHL #165944 : 
69 3 FB 8 CALLS #3, LIBSSIGNAL : 
0c a oF 3 E 548: PUSHAB \ (r4) ; 1753, 
000000006 99 Q FB p 3 CALLS #, DBG$GET_BIF _ARGUMENTS : 
p A MOVL R G_LIST F 
09 18 Ag 1 D CMPB g4{R2), r) : 1755. 
29 12 a BNEQ 5$ ; | 
14 AE 9F 0054 PUSHAB DUM3 > 1761 | 
1¢ «AE OOF 46 PUSHAB HIGHBOUND : 
@4 AE 3 4 PUSHAB LOWBOUND ; 
C AE 9F 0054C PUSHAB RSTPTR : 
; DD Out PUSHL R ; 
6A FB 00551 CALLS #5, DBGSSTA_TYP_SUBRNG ; 
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1 ~300 7} 382 93:40:30 DEBUG. SRC IDBGLANGOP.B3 31 . ah} 
0 10 A 4 MOV RSTPTR, RO : 17 
be i8 A 8 CRPe 4(RO), #4 : ee 
0 ¢ BEQL : 
OC AG OOF PUSHAB 12(R4) + 1764 
1 00 6 PUSHL ; 
000289CA . DD 0056 PUSHL #166346 ; 
69 FB 0056 CALLS #3, LIBSSIGNAL : 
§ 00 6C 55$: PUSHL RESULT 3 1769 
06 A? DD gf PUSHL  4(ARG List) : | 
0000v CF i Fe f CALLS #2, DBGSPRED_ENUM Frans! 
07 5 p 8 56$: CMPL PCODE, #7 : 1798, 
64 08 i BOE” oBi te (RO), 578 1779. 
00000000' EF FF 1 PUSHAB P.AAT ‘ + 1781) 
1 DD 00587 PUSHL #i : 
000289E2 8F DD 00589 PUSHL #166370 ; 
$9 3 FB 0058F CALLS #3, LIBSSIGNAL ; 
E £0 0592 57$: nova } 8, =(SP) : 1785 
000000006 00 FB 0597 CALLS #3, DBGSTYPEID_FOR_ATOMIC : 
10. AE 9 D 0596 MOVL RO. RSTPTR | : | 
9 DD 005A PUSHL # + 1789 
E D4 0054 CLRL. = = (SP) : 
18 Ar DD O05A6 PUSHL RSTPTR : 
0000v ct FB 0 509 CALLS #3, DBGSMAKE_VALUE_DESC ; 
6 0 00 OOSAE MOVL T 3 
20 A6 9F 00581 PUSHAB 32(RESULT) : 1794 
4 AC DD 0584 PUSHL TYPEID ; 
000000006 00 02 FB 00587 CALLS #2, DBGSSTA_SYMSIZE : 
O1CE 31 SBE 588: BRW 76 : 1342 
08 52 01 005C1 59$: CMPL =‘ OPCODE, #8 : 179 
03 13 005¢4 BEQL 60 : 
009E 31 O5¢6 BRW 65$ : | 
50 04 AC 0 3 60$ MOVL TYPEID, RO > 1804 
06 14 AO 91 005CD CMPB =s- 20(RO). #6 F 
0B 12 00501 BNEQ 61$ ; | 
4 AC 9F 00503 PUSHAB TYPEID > 1806 | 
4 AE 9F 00506 PUSHAB DUM1 : 
3 DD 00509 PUSHL R ; 
68 FB 0050B CALLS #3, DBGSSTA_SYMTYPE ; 
04 AC p SDE 618 MOVL  TYPEID, R2 : 1808 
04 18 Ae E CMPB s«24(R2). #4 : | 
4 14 0 E BEQL ges F | 
09 18 A2 9 E CMPB (R2), #9 + 1809 
OE 13 005EC BEQL 6 $ : | 
OC AG OOF 0 FE PUSHAB 12(R4) > 1811. 
1 DD 005F PUSHL @# : 
000289CA 8F DD r3 PUSHL #166346 ; 
69 3 FB O05F CALLS #3, LIBSSIGNAL : 
4 Dd 00SFC 628 PUSHL #4 : 1815 
D4 005F CLRL. = (SP) ; 
DD 006 PUSHL R : 
0000v ct F CALLS #3, DBGSMAKE_VALUE_DESC : 
6 D OVL RO. RESULT : 
64 B 3 A S wii, (R4), 638 ; 181 
0c A& SF 0060E PUSHAB 12(R4) : 182 
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18=808-1 382 94:99: 30 DEBUG. SRC IDBGLANGOP .B3 31 . 8} 
1 DD 0061 PUSHL #1 : 
00028838 iM DD $3 PUSHL #165944 : 
9 7B $1 CALLS @# | 1BSS1GNAL : 
OC AG oF iC 63$ PUSHAB 1 (R4) + 1825 
000000006 09 p FB é 1 CALLS #2, DBGSGET_BIF_ARGUMENTS : | 
3 8 VL R ARG_L st 3 
9 18 A2 91 00608 CMPB 4 {R2), é : 1827, 
4 2 0062F NEQ 4$ : 
14 AE OF 00631 PUSHAB DUM3 : 1833 
1C «AE OF 006 PUSHAB HIGHBOUND : 
24 AE 3 6 7 PUSHAB LOWBOUND ; 
C A F A PUSHAB RSTPTR : 
; DD 0063p PUSHL R : 
A FB 63F CALLS #5, DBGSSTA_TYP_SUBRNG : 
0 10 A p he VL  RSTPTR, RO + 1834. 
04 18 «OA } 64 CMPB =s-s«24 (RO), #4 : 
OE 13 0064A EQL 648 : | 
OC AS 9F 0064C PUSHAB 12(R4) : 1836. 
1 DD 0064F PUSHL #1 : 
000289CA 8F DD 00651 PUSHL #166346 ; 
69 3 FB 0697 CALLS #3, LIBSSIGNAL ; 
6 DD 0065A 64$:  PUSHL RESULT + 1841) 
04 A7 dD 0065C¢ PUSHL  4(ARG_LIS : | 
0000v CF FB 0065F CALLS #2, DBGSSUCC_ENUM ; 
0128 31 00664 BRW 76§ : 1342 
09 D1 00667 65$: CMPL OPCODE, #9 + 1845) 
6 13 0066A BEQL $6$ : | 
010F 31 0066C BRW 4$ ; 
50 046 AC 0 066F 66$:  MOVL  TYPEID, RO + 1851, 
06 14 AO 91 006 3 CMPB 20 (RO), #6 : 
0B 12 0067 BNEQ 67$ : 
04 AC 9F 00679 PUSHAB TYPEID + 1853) 
24 AE OF 0067C PUSHAB DUM1 ; 
50 DD 0067F PUSHL RO F 
68 0 FB 0681 CALLS #3, DBGSSTA_SYMTYPE F | 
5 04 AC D 0684 67$:  MOVL  TYPEID, R2 : 1855. 
04 18 «OA 74 06 CMPB 3s «-24(R2). #4 F 
14 13 0068C BEQL  68$ : | 
09 18 «A291 0685 CMPB =«-«-24(R2), #9 : 1856) 
OE 13 0069 BEQL ; | 
OC Ad 9F 00694 PUSHAB 12(R4) : 1858. 
1 0D 00697 PUSHL # ; 
000289CA 8F DD $99 PUSHL #166346 : 
69 3 FB F CALLS #3 LIBSSIGNAL : | 
64 B 3 6A2 68%: BBS wii, (R4), 69 : 1862. 
OC AG OOF Ong PUSHAB 12(R4) + 1864 
1 DD 006A SHL ; 
00028838 8F DD 6AB PUSHL #165944 : 
69 3 FB $8 CALLS @# | 1BSS1GNAL F | 
OC Ad 9F 006B4 69%:  PUSHAB 12(R4) : 1868 
1 DD 00687 PUSHL ; | 
000000006 9 F B CALLS #3, DBGSGET_BIF_ARGUMENTS ; 
: C MOVL RO, ARG_L ; 
9 18 «OA ¢ CMPB gh ine), r) : 1870. 
29 12 006C BNEQ 0$ 3 
146 AE 9F 006C9 PUSHAB DUM3 : 1877 


3; Routine Size: 


1939 bytes, 


10 

16-Sep-1984 01:20: AX-11 Bliss-32 v4.0-7%4 Pa 5 
18-Sen-1984 tM akg rg ee oe 483 

C hi F gcc PUSHAB HIGHBOUND : 

4 A fF CF PUSHAB ee : 

4 oF i PUSHAB YPEID : 

A 3 F D CALLS #5, DBGSSTA_TYP_SUBRNG : 
$0 04 at DA MOVL YPEID, RO : 1878 

4 8 A i CPS 4(RO), #6 ; 
0c nf 9F ef PUSHAB 12(R4) + 1880) 

oo0289ca St bb botES PUSH #166346 ; 

69 3 FB ett ALLS ay LIBSSIGNAL : 
? m Be Sa ootee oe | burbe. Ste2, csp) ——" 
000000006 : FB O006F8 CALLS a, SBGSMAKE_SKELETON_DESC : 
g 09 OGFF MOVL RO, TEMP _VAL~DESC ; | 
07 0 2 MOVE #6. 7(TEMP_VAL_DESC) + 1888 | 
08 KS p4 07 CLRL gc TEMP VAL DEST) ; 1889, 
18 AS A ; 07 MOVAB (R5)> 26TTEMP_VAL_DESC) 1890, 
RE & orosoone $F 58 S35 ANE. ipaStLbEP-OtaPhs da nese Bt 
tte HE || Rak Geet _ 
000000006 99 9F Oo7i PUSHAB bacsoc CONVERT_TOKEN ; 1899 
000000006 8 Fe of ; CALLS " DEGSEVAL LANG_OPERATOR ; | 
2 20 aS 4 072F MOVL 3 (TEMP_VAL_BESC), R2 : 1905. 
50 o ft 8 007 : ee, TYPEIO. RO : 1906 | 

28 AD se Bi gorse == EMAL ngsaBUROD ies 

000287F8 rf DD 0073F 71$:  PUSHL #165880 : 1908 | 
$8 4 AE OB O0Re8 728: RoUk fybela aoe 1912 
Pe ee et: a ee ee ron 
A . ; | 
f 18 AO 9A 00756 MOVZBL 24(RO), -(SP) : 1917) 
6 85 BB bose pusHt ORO es 
0000v ct ‘ FB 07 F CALLS #3, DBGSMAKE_VALUE_DESC : 
6 764 OVL RO, RESULT i | 
23 AE OF Orca tO PUSHAB DST VALUE 5 roe 
H ; 
000000006 00 ; 0 PP 1% tik: #3, DBGSSTA_SYMVALUE : 

9 Ab 24 BE 06 0 MOVL @D$T_VALUE, 2(RESULT) ; 1328 
00000000' f oF ure 74$: PUSHAB P AAU : 192 | 
00028362 8F DD 007 PUSHL #164706 : 

9 3 FB 78C 75$: CALLS @# L1BSS1GNAL F sana} 
0 6 B0 O78 76$: HOVL RESULT, R : 1935, 
? 


Routine Base: 


DBGSCODE + 0810 


10 


# 


14-Sep-1 DEBUG. SRC JDBGLANGOP 


Do the Greater than or Equal to evaluation. 
-RESULT_DESCCDBGSL_VALUE_POINTER] = .VALUE1 GEQ .VALUE2; 
END; 


SENSU RUNS 


oooono 


; } § } 3 ! GLOBAL ROUTINE DBGSGEQ_FIXED_FIXED (ARG_DESC1, ARG_DESC2, RESULT_DESC): NOVALUE = 
; 4 $ i FUNCTION 

> § 1941 13 This routine is called to perform the greater than or equal to operation 
3 : 1306 ! on a scaled binary variable. 

i} ; peg jj inruts 

: 1831 1946 1 i ARG_DESC1 - points to the value descriptor representing the 

3 1 § 1947 1! eft argument of the operation. 

3 1 1308 7 ARG_DESC2 = points to the value descriptor representing the 

3 3 1949 1! es argument of the operation. 

; 1835 1320 1! RESULT_DESC - points to the value descriptor representing the result. 
3 } 132 : } of the operation. 

IBS HE | | unre 

: 1840 1955 1 The result value descriptor is filled in. 

s : 1 1328 ’ : No value is returned. 

:1 : 1958 2 BEGIN 

: iecs 1960 

> 1846 1961 ARG_DESC1 : REF DBGSVALDESC, 

3: 1847 1336 ARG_DESC2 : REF DBGSVALDESC, 

3 1848 196 RESOLT_DESC : REF DBGSVALDESC; 

MBS BEE voc 

> 1851 1966 AL DESC! : DBGSSTG_DESC, 

; 1826 196 VAL_DESC2 : DBGSSTG_DESC, 

; 185 1968 VALOE1, 

3 1328 He 44 VALUE2; 

: 1886 +48 : Set up working variables. This way we don't mess up anything important. 
: 1858 1398 CHSMOVE (DBGSK_STG_DESC_SIZE, ARG_DESC1COBGSA_VALUE_VMSDESC], VAL_DESC1); 

3 $2 4 CHSMOVE (DBGSK_STG_DESC_SIZE, ARG_DESC2LDBGSA_VALUE_VMSDESCJ, VAL_DESC2); 

: 1861 197%6 VALUE1 = - -ARG_DESC1EDBGSL_VALUE POINTER : 

3 1 § 197 VALUE2 = ,.ARG_DESC2LDBGSL_VALUE POINTER); 

3 1 18 VAL_DESC1 DSCSA_POINTER = VALUET; 

3 : : 1923 VAL_DESC2CDSCSA_POINTER] = VALUE2; 

:4 1981 DBGSNORMALIZE_FIXED(VAL_DESC1); 

3 139 DBGSNORMAL I ZE_F IXED(VAL_DESC2); 

; i 19 MATCH_FIXED_BINARYS(VAL_DESC1, VAL_DESC2); 

: 1 1 

3 Y 1 

3 1 1 

: 1 1 

3 1 


aN 
Vw —-OO@ 


16-Sep-1984 01:20:50 AX-11 Bliss-32 We 0-743 


Page $6 


DBGL ANGOF rer O1:20:30 VANE IT OLinE=52 Ma On742 Page 6 


00F ENTRY pagsced. FIXED_FIXED, Save R2,R3,R4,R5,R6,R7 ; 
55 20 ¢ SUBL2 : 
04 AC b MOVL.  ARG_DESC1, R7 + 1973) 
14 AE 14 «A? OC MOVCS #12, 20(R?), VAL_DESC1 : | 
56 08 AC p MOVL.  ARG_DESC2, R6 : 1974. 
08 AE 16 Ab o¢ mMOVC3) #1 (Rb), VAL_DESC2 : 
6E 18 B87 D 1 MOVL a6 (r?), VALUE] ~ : 1976 
4 AE 18 86 1 MOVL @ 4 (RG) VALUE 2 : 197 
8 AE 6— 9E MOVAB VALUE1, VAL_DESC1+4 : 1978 
OC AE 4 AE 9 MOVAB VALUE2 VAL “DESC 2+4 : 1979 
4 AE OF 8 PUSHAB VAL_DESC : 1981 
0000v CF 07 FB ; CALLS #1, DBGSNORMALIZE_FIXED : 
08 AF OF PUSHAB VAL_ + 1982 
0000v CF 01 FB CALLS #1, DBGSNORMALIZE_FIXED ; 
08 AE af B PUSHAB VAL DESC + 1984 
1 Ag F 99 E PUSHAB VAL~DESC : 
0000v CF 0 FB 041 CALLS Woe “MATCH FIXED _BINARYS : 
1 oc AE D0 00046 MOVL  RESULT_DESC, R : 1988 | 
50 D4 0004A CLRL : 
04 AE D1 0004 CMPL -~ VALUE1, VALUE2 : 
19 0005 BLSS =‘ : 
D6 0005 INCL RO : 
18 «BI 50 DO 00054 1$ MOVL RO, @24(R1) : | 
04 00058 RET + 1990 


; Routine Size: 89 bytes, Routine Base: DBGSCODE + OFA3 


echoes OL:0:50 YMG RLGSRZ MOS... Pave gt 


: 


3 } t } 1 ! GLOBAL ROUTINE DBGSGTR_FIXED_FIXED (ARG_DESC1, ARG_DESC2, RESULT_DESC): NOVALUE = 
187 1998 1 | Function 

; 1881 1995 1! This routine is called to perform the greater than operation 

3 ; ¢ 1997 ! on a scaled binary variable. 

; 1884 1998 | INPUTS 

31 00 1! ARG_DESC1 oints to the value descriptor representing the 

3 1 . on eft argument of the operation. 

3 1 Se 1} ARG_DESC2 - pornts o the value descriptor r representing the 

3 1 1; Be argument of the operat 

; 1890 73 RESULT_DESC = points to the value descriptor representing the result. 
3 1993 B82 : } of the operation. 

; 1898 o7 OUTPUTS 

: 1895 009 1! The result value descriptor is filled in. 

3 139 19 : } No value is returned. 

> 1898 i "BEGIN 

: 1900 14 MAP 

> 1901 15 ARG_DESC1 : REF DBGSVALDESC, 

3 138 18 ARG_DESC2 : REF DBGSVALDESC, 

3; 190 1 RESOLT_DESC : REF DBGSVALDESC; 

we BM 

: 1906 0 VAL_DESC1 DBGSSTG_DESC, 

3 4 44 1 VAL_DESC2 DBGSSTG_DESC, 

: 1908 ; VALOE1, 

3 13 ? VALUE2; 

: 1911 5 ! Set up working variables. This way we don't mess up anything important. 
; 1918 § cHSMOvE (DaGsK -STG_DESC_SIZE, ARG_DESCICDBGSA_VALUE_VMSDESC], VAL_DESC1); 
H a 3 CHSMOVE (DBGSK~ “STG_DESC “SIZE, ARG_ DESC2 DBGSA_ VALUE~ _VMSDESC), VAL “DESC2); 
; 1916 0 VALUE] = ..ARG SESE eSEL VALUE _POINTER); 

3; 191 1 VALUE2 = ESC2CDBG$L_ VALUE POINTER]; 

; 1918 § VAL “DESCI bse tex. POINTER) = VALUET; 

3 + a VAL “DESC2 DSCSA_POINTER = VALUE2: 

> 1921 5 DBGSNORMALIZE_FIXED(VAL_DESC1); 

3 13 ¢ § DBGSNORMAL | ZE~ “FIXED(VAL_ DESC2); 

: 19 4 3 MATCH_FIXED_BINARYS(VAL_DESC1, VAL_DESC2); 

: 19 6 9 ! Do the Greater Than evaluation. 

; 1928 4g .RESULT_DESCCDBGSL_VALUE_POINTER] = .VALUE1 GTR .VALUE2; 

: 19 044 END; 


K 10 | 
1o-3e8- 1384 93:99:39 — ¥oKadG. Bae Sbeccancos.645.1 Page 28) | 


; Routine Size: 89 bytes, Routine Base: DBGSCODE + OFFC 


00F SENTRY raps FIXED_FIXED, Save R2,R3,R4,R5,R6,R7 ; 1991) 
5 o ff § ayer? "D + 2027, 
14 AE 16 A? o 3 mMOVC3 3tah VAL_DESC1 ; | 
36 08 AC p MOVL Ans C2, R6 : 2028 | 
08 AE 16 Ab oC MOVC3 (R6), VAL_DESC2 ; | 
“et 18 «B87 OD 1 MOVL i ), VALUE1 + 2030 
04 AE 18 86 1 MOVL  @24(R6), VALUE? + 2031 
18 AE 6E 9E MOVAB VALUE1, VAL_DESC1+4 + 203 
OC AE 6 AE E MOVAB VALU E2, VAL-DESC2+4 ; 93 
4 AF B PUSHAB VAL DESC : 
0000v CF 01 FB 5 CALLS 1. “DBGSNORMALIZE_FIXED : 
08 AF 9F 000 PUSHAB DESC2 : 2036 
0000v CF 07 FB CALLS Ht “DBCSNORMALIZE FIXED : 
08 AE 9F 00038 PUSHAB VAL_DESC ; 2038 
1 AE 9F 000 : PUSHAB vAL =DESC ; 
0000v cf 0 FB 004 CALLS MATCH_FIXED_BINARYS : 
1 0c AC DO 00046 MOVL R feutt DESC, RI” ; 2062 
50 D4 0004A CLRL : 
04 AE 6E 01 0004 CMPL - VALUE1, VALUE2 F | 
0 15 0005 BLEG)~=s«18 ; 
D6 00052 INCL RO ’ | 
18 «BI 50 00 00054 18: MOVL RO, @24(R1) : 
04 00058 RET > 2044 | 
| 
} 
| 
| 


; 13 ¢ 5 
; 13 8 
3; 1935 8 
3; 19 4 
3; 19 

; 1938 

3; 1939 

3: 1940 

3 1941 4 
ie Re 
> 1944 $25 
3 1945 5 
3 1388 5 
3 194 060 
3 194 061 
3 194 $06 
3; 1950 06 
: 1951 064 
3 1326 065 
3; 195 B98 
3: 1954 06 
3; 1955 068 
; 1328 069 
3; 195 070 
: 1958 071 
; 1959 07 
: 1960 07 
; 1961 074 
3 1398 075 
3; 196 07 
3 1964 07 
3: 1965 078 
3 1966 079 
3 1967 080 
se) 
: 1990 OBS 
3 1971 084 
: 1976 085 
3; 197 p36 
: 1978 OB 
; 197% $89 
: 197 090 
3; 1978 091 
3 4 4 94 
3 1385 94 
3; 198 095 
; 198 09 
3: 1984 09 
3; 1985 098 


PR OPOROROPOPONORIPOPONOPOPOPONOPOPINONUPOPONIPONUPONONOPOPNNY 9 tt ot 


FUNCTION 


This routine is called to perform the less than or equal to operation 
on a scaled binary variable. 


INPUTS 
ARG_DESC1 - porate to the value descriptor representing the 
eft argument of the operation. 
ARG_DESC2 - points to the value descriptor representing the 


agne argument of the operation. 
° nts to the value descriptor representing the result. 


a 
RESULT_DESC =? 
the operation. 


) 
OUTPUTS 


The result value descriptor is filled in. 
No value is returned. 


BEGIN 
ARG_DESC1 : REF DBGSVALDESC, 
ARG_DESC2 : REF DBGSVALDESC, 
RESOLT_DESC : REF DBGSVALDESC; 
L 
VAL_DESC1 DBG$STG_DESC, 
VAL-DESC2 DBG$STG_DESC, 
VALOE1, 
VALUE2; 


: Set up working variables. This way we don't mess up anything important. 


CHSMOVE (DBGSK_STG_DESC_SIZE, ARG_DESC1(DBGSA_VALUE_VMSDESC], VAL_DESC1); 
CHSMOVE (DBGSK_~STG_DESC-SIZE, ARG_DESC2CDBGSA_VALUE_VMSDESCJ, VAL_DESC2); 
VALUE1 = > oARG_DESC]EDBGSL VALUE POINTER ; 

VALUE2 = ,.ARG DESC2CDBGSL_VALUE- POINTER); 

VAL_DESCICDSCSA_POINTER) =" VALUET; 

VAL_DESC2CDSCSA_POINTER] = VALUE2; 

DBGSNORMAL I ZE_F IXED(VAL_DESC1); 

DBGSNORMAL I ZE-F IXED(VAL_DESC2); 


MATCH_FIXED_BINARYS(VAL_DESC1, VAL_DESC2); 

Do the Less Than or Equal to evaluation. 
.RESULT_DESCCDBGSL_VALUE_POINTER] = .VALUE1 LEQ .VALUE2; 
END; 


10 
1SzSep-1984 1:20:30 YAKeHT BL igs-32 v4. 0-742 | 


GLOBAL ROUTINE DBGSLEQ_FIXED_FIXED (ARG_DESC1, ARG_DESC2, RESULT_DESC): NOVALUE = 


"1 


0 | 
vos-000 1e$ep-198e 12:49:01 EbReus. SacSbaGLaNcor.039, 1 Pome caf) 


O00F SENTRY pase FIXED_FIXED, Save R2,R3,R4,R5,R6,R7 ; 2045) 
55 20 ¢ SUBL2 F | 
04 AC b MOVL ARG_D scl + 2081 
14 AE 16 A? oC mOvC3 cro)” "it _DESCI ; 
56 08 ac p F MOVL ar ‘D s¢ 6 + 2082 
08 AE 16 6 o¢ 3 MOVC3) (R6), VAL_DESC2 : 
6E 18 +B? OD 1 MOVL a (R?), VALUE! ; 084 
04 AE 18 86 p 0 1p vL oa (RG). VALUE? ; 085 
18 AE 6E 9E MOVAB VALUE], VAL_DESC1+4 : 
OC AE 4 AE 3 6 MOVAB vatsbesct AL“DESC2+4 ; O87 
0000v CF Of FB y CALLS #1, DBG ae FIXED ; 
08 AE 9F 00 PUSHAB + 2090 
0000v CF 01 FB 00 CALLS #1,~ DBGSNORMALIZE_F IXED ; 
98 OME OF ose PUSHAB VAL~DE8t pees 
0000v CF 05 FB a9044 CALLS “MATCH FIXED _BINARYS : 
1 0c aC D0 0046 OVE RESULT DESC, + 2096 
04 AE 6E 01 0004 CMPL VALUE, VALUE 2 F 
85 06 0008 Face} 
18 «1 50 00 00054 18: MOVL RO, @24(R1) : 
04 00058 RET + 2098 


; Routine Size: 89 bytes, Routine Base: DBGSCODE + 1055 


. 


3 


10 


1$-$60-1964 01:20:30 


FUNCTION 
This routine is called to perform the less than operation 


— 


SESE ESS SEES LS 


So 
o 


S 


oooo 


CooQoooeooeoo 
MRR @ 2 ew 


— at at at ete ae 
FUSS SONNE UM OOO NOMF WR —ODS 


wn 


ket 


COOoOoooooo 


Ww 


Ronofonofononononononorononononopofenonrnnnn 


a ed dd ed od ow dd dd dd dd 


ROPROPOPOPONONOPONOPOPIPONONUPOPOPUNOPOPONIPINPOPUPINUNIPUNINIDYD 2 ts 


® 
oo 


on a scaled binary variable. 


AX-11 Bliss-32 V4.0-74 
DEBUG. SRC JDBGLANGOP .B32;1 


GLOBAL ROUTINE DBGSLSS_FIXED_FIXED (ARG_DESC1, ARG_DESC2, RESULT_DESC): NOVALUE = 


INPUTS 
ARG_DESC1 - points to the value descriptor representing the 
eft argument of the operation. 
ARG_DESC2 - points to the value descriptor representing the 
r ght argument of the operation. 
RESULT_DESC = points to the value descriptor representing the result. 
of the operation. 
OUTPUTS 


The result value descriptor is filled in. 
No value is returned. 


BEGIN 
ARG_DESC1 : REF DBGSVALDESC, 
ARG DESC2 : REF DBGSVALDESC, 
RESOLT_DESC : REF DBGSVALDESC; 
LOCAL 
VAL_DESC1 : DBGSSTG_DESC, 
VAL~DESC2 : DBGSSTG_DESC, 
VALOE1, 
VALUE2; 


: Set up working variables. This way we don't mess up anything important. 
CHSMOVE (DBGS$K_STG_DESC_SIZE, ARG_DESC1COBGSA_VALUE_VMSDESC], VAL_DESC1); 


CHSMOVE (DBGSK_STG_DESC-SIZE, ARG_DESC2CDAGS4~vALUE_VMSDESCJ, VAL_DESC2); 
VALUE! = oo ARG DESC} FDBESL VALUE POINTER H 

VALUE2 = ,.ARG_DESC2CDBGSL_VALUE POINTER); 

VAL_DESCICDSCSA_POINTER) ="VALUET; 

VAL _DESC2CDSCSA_POINTER] = VALUE2; 

DBGSNORMALIZE_FIXED(VAL_DESC1); 


DBGSNORMAL I ZE~F IXED(VAL~DESC2) ; 
MATCH_FIXED_BINARYS(VAL_DESC1, VAL_DESC2); 

Do the Less Than evaluation. 
-RESULT_DESCCDBGSL_VALUE_POINTER] = .VALUE1 LSS .VALUE2; 
END; 


3; Routine Size: 


89 bytes, 


14 «=A? 
56 

14 «AG 
6E 

04 AE 
18 AE 
Oc AE 
0000v CF 
0000v CF 
0000V gf 
1 

04 AE 
18 «BI 


Routine Base: 


OOF 
20 ¢ 
04 AC 
oC 

08 be 
w fs 
1 B6 3 
7, af 
tag 
01 FB 

08 Ag oF 
01 FB 

0 AE 9F 
1 a5 oF 
0 4 

oc AC OD 
50 D4 

6E 01 
02 18 
3 i 
04 


DBGSCODE + 10AE 


ooo 


SOOOooCOCSOoOOOCOoCOoOoOoOoOOCOOOoOoOSooSooO 
SOSCOSSCSCOOCOOOCOOOOOOOoOoOoOoOSO 


11 | 
1B-ep-1964 01:20:50 Yaet? BLigs=s2 v4. 0-742 roel 
i j 


ENTRY DagSLSs_ FIXED_FIXED, Save R2,R3,R4,R5,R6,R7 ; 2099. 
SUBL2 #32, SP : 
MOVL. ARG.DESC1, R7 + 2135) 
MOVC3 #12, 20(R?), VAL_DESC1 : 
MOVL.  ARG_DESC2, R6 ; 2136) 
1 mMOVC3) #1 (Rb), VAL_DESC2 : 
1 MOVL a6 (R7), VALUE? : 2138 
19 MOVL =a 4 (RG), VALUE2 + 2139 
MOVAB VALUE1, VAL_DESC1+4 + 2140 
6 MOVAB_ VALUE2, VAL-DESC2+4 + 216 
8 PUSHAB VAL_D + 2143) 
5 CALLS #1, DBGSNORMALIZE_FIXED ; 
PUSHAB VAL_DESC + 2146 
CALLS #1, DBGSNORMALIZE_FIXED ; 
B PUSHAB VAL DESC i 2146 | 
E PUSHAB VAL =DESC F 
41 CALLS #2, MATCH_FIXED_BINARYS : 
46 MOVL RESULT. DESC, RI~ : 2150) 
4A CLRL 0 ; 
4c CMPL -~ VALUE1, VALUE2 : 
5 BGEQ 1$ 3 
52 INCL RO : 
54 18: MOVL RO, @24(R1) : | 
58 RET 2152. 
| 


ifcbeoct9pe 01:20:30 ARNT BLigs32 v4. 0-742 


3 § ! ; ! GLOBAL ROUTINE DBGSMAKE_VALUE_DESC (TYPEID, SYMID, FCODE) = 

5 2064 155 1 | FUNCTION 

3 5 1 § h ay teceres space for a value descriptor of the given type, and 

; § : } } fills in the fields. 

; 8 188 1 ' INPUTS 

3 199 1! TYPEID = RST Type rsry 

3 9 161 1! SYMID = RST Symbol Entry (May be zero) 

; 2051 196 : FCODE = Format code for value descriptor 

; : 164 1 i OUTPUTS 

3; 2054 165 1! Returns the address of a value descriptor allocated out of temporary 
3 : 5 196 ! memory. 

; ia 168 1 2 

; 20 8 18 BEGIN 

: $080 iF 

: ‘st 176 TYPEID : REF RSTSENTRY; ! RST Entry type for the value descriptor 
; ne 17% LITERAL 

3 ee) \t? DESC_LENGTH = 10; ! Length of the descriptor 

; 066 179 LOCAL 

3; 206 178 DUM1 ,DUM2, ! Dummy variables for routine call 
§ Bee 44 4 RESULT : REF DBGSVALDESC; ! Address of the result descriptor 
; $9 181 

3 44 : ¢ } Get temporary memory for the new descriptor 

: O78 1 : RESULT = DBGSGET_TEMPMEM (DESC_LENGTH); 

: 075 186 ! FALL in the fields of the new value descriptor. 

; O77 188 RESULT DBG$B_DHDR_LANG = ,DBGSGB_LANGUAGE; 

3; 2078 189 RESULT (DBGS$B_DHDR_ = DBGSK_VALUE DESC; 

3; 2079 1 RESULT [DBGS$W_DHDR_LENGTH] = 4 * DESC_LENGTH; 

3; 2080 191 RESULT COBGSB_DHDR_KI = RSTSK_DATA; 

3; 2081 136 RESULT (CDBGSB_ _f —) = .FCODE; 

F OB¢ 19 RESULT CDBGSL-DHDR-TYPEID] = .TYPEIO; 

3 OR 133 RESULT CDBGSL_DHDR_SYMIDO] = .SYMID; 

: 5 19: IF NOT DBGSFILL_IN_VMS_DESC(.FCODE, .TYPEID, 0, 

; O86 199 io RESULTCDBGSA_VALUE_VMSDESC],DUM1, DUM2) 

: Dae 199 SDBG_ERROR (*DBGLANGOP\DBGSMAKE _VALUE_DESC could not fill in the VMS fields"); 
; 090 1 RESULT CDOBGSL_VALUE_POINTER] = RESULTCDBGSA_VALUE_ADDRESS); 

; 09¢ ; RETURN .RESULT; 

3; 209 4 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


CeCe ee errs ree te 
20 66 62 20 GF ge GP ge go TH ge SE BM EF Oosee | ascit 


-PSECT 
0004 000 sENTRY 
5E 8 C2 UBL2 
A 00d PUSHL 
000000006 9 a. CALLS 
8 MOVL 
83 A atta» 4 MOVB 
A A ee. 19 MOVB 
6 8 Bs MOVW 
7 A 6 3 MOVE 
6 A of AC 5 MOVE 
08 A 4 AC 7D QOO2A va 
5E 0D $3 F PUSHL 
08 AE OF 1 PUSHAB 
14 A2 9F 00034 PUSHAB 
7E 04 00037 CLRL 
04 AC DD 00039 PUSHL 
Oc AC DD 00035C PUSHL 
000000006 00 98 4 OO3F CALLS 
15 3 $4943 LBS 
00000000" EF 9F Babe PUSHAB 
1 DD 0004F PUSHL 
00028362 F 0D 00051 PUSHL 
000000006 00 03 FB 00057 CALLS 
18 be 20 8g 43 44 1$: MOVAB 
5 52 DO 0006 MOVL 
04 00066 RET 
; Routine Size: 103 bytes, Routine Base: DBGSCODE + 1107 


1Sdeo-1986 0):20:40 


\ld not fill in the VMS fields\ 


DBGSCODE,NOWRT, SHR, PIC,0 
DBGSMAKE_VALUE_DESC, Save R2 
H SP 

#1, DBGSGET_TEMPMEM 

RO UL 

DBG$GB_LANGUAGE, 3(RESULT) 
#i22, 2(RESULT) 

#40, (RESULT) 


FCODE 

#6, DBGSFILL_IN_VMS_DESC 
RO, 1$ 

P. AAV 


wi 
64706 
3} L 1BS$1GNAL 
32(R2), 24 (RESULT) 
RESULT, RO 


AX-11 Bliss-32 V4.0-74 
DEBUG. SRC JDBGLANGOP .B32;1 


\>DBGLANGOP\<92>\DBGSMAKE_VALUE_DESC cou\ 


Page fF 


magus IEHSeIS AUSROSAE WASSU.SLGaHEANtSETAE,, «et 


3 5 5 } GLOBAL ROUTINE DBGSMUL_FIXED_FIXED (ARG_DESC1, ARG_DESC2, RESULT_DESC): NOVALUE = 
; 2 i FUNCTION 

; 1 ¢ This routine is called to perform the multiply operation 

: 164 : on a scaled binary variable. 

; ‘ i INPUTS 

; 1 1! ARG_DESC1 oints to the value descriptor representing the 

3; 2105 1! eft argument of the operation. 

; 21 1! ARG_DESC2 - points o the value descriptor representing the 

3; 21 1! em argument of the operation 

; 2108 1: RESULT_DESC = points to the value descriptor. representing the result. 
3 192 : of the operation. 

: 1 i QuTPuTS 

: 118 1! The result value descriptor is filled in. 

3 148 : } No value is returned. 

: 116 "BEGIN 

: Sii8 MAP 

> 2119 ARG_DESC1 : REF DBGSVALDESC, 

; 2120 ARG _DESC2 : REF DBGSVALD DESC, 

3 ’ 1 RESOLT_DESC : REF DBGSVALDESC; 

: 21 : LOCAL 

3 2126 INDEX 

> 2125 RESULT_VALUE : VECTORC2,LONG), 

3 21 $ SCALE, 

: 21 TEMP_VAL : BITYECTORE 32), 

3; 2128 VAL_BESC1 : DBGSSTG_DESC, 

3 2129 VAL_DESC2 : DBGSSTG_ “DESC, 

3; 21 4 ALOE1, 

3 ; 1 ? VALUE 2; 

; ; : vi : Set up working variables. This way we don’t mess up anything important. 
; 135 4 CHSMOVE (DBGSK_ STG_DESC_SIZE, ARG_DESCICDBGSA_VALUE_VMSDESCJ, VAL_DESC1); 
: ; r+ CHSMOVE (DBGSK~ “STG_DESC_SIZE, ARG_DESC2CDBG$A_VALUE— “VMSDESCJ, VAL_DESC2); 
; 135 $8 VALUE! = ohne 8 DESC) FpeGst_ VALUE POINTER]; 

3; 21 4 VALUE2 = ,.ARG DESC2LDBGSL_ “VALUE » Aaah 

3 2140 0 VAL “DESC! DSC A_POINTER] =" 

3 1°) 1 VAL_DESC2CDSCSA_POINTER) = VALU 

; 108 : DBGSNORMAL I ZE ‘tosinurteitcal 

3 1¢¢ 32 DBGSNORMAL I ZE“F IXED(VAL_DESC2); 

; 146 36 ! Do the add. 

> 216 5 EMUL(VALUE1, VALU RE FO RESULT VALUE); 

; 169 33 SCALE = EAC _vestitbsese.§ $8_S hited + VAL _DESCeLDSCS$B_ SCALE); 

; 134 61 ! Now it gets tricky... 


1ecbeer9Be QU:GB:H?  YABGNE SLUSSGREAtad23. 


! We've got to put thi - wagoette result into a longword and check 


H for a loss of precision 


Oo 
wre 


i Let's start AY finding the most significant bit in the second longword. 
; Firs f the value of the second longword is 0 or -1, we needn't 
weste. ow time. 


335. 


i ares EOL -1 

$DBG_ERROR( "DBGLANGOP\DBGSMUL_FIXED_FIXED should never be here’); 
; Move the 32 bits into our temporary location, and modify the scale. 
TEMP_VAL = sRESULT VALUE<(, INDEX + 2), 32, 0>; 
SCALE = .SCAL EX + 2; 
IF -RESULT *VALUE<O, (, INDEX’ + 2), O> NEQ 0 


SIGNAL (DBG$_IF IXUND) ; 


4 
é 
6 
§ § if RESULT _VALUE | EQL 0 OR 
o , ‘ RESULT-VALUEC1J EQL =1 
8 ; "PEGIN,, LT VALUE 
6 fs I at VALE S49 NEQ . dis -VALUE+4)<0, 1, 0> 
66 16 BEGIN 
6 f Fi enr VALCO) 
63 8 SIGNAL (DBGS IF LXUND) j 
0 80 TEMP_VAL = TEMP_y -{; 
q) 1 SCALE = ,SCALE + “ys 
i HE END 
74 84 ELSE 
75 FA EGIN 
16 § TER VALS = ,RESULT_VALUE(1); 
a BB WHILE (. TEAP “VALE INDEX] NEQ .TEMP_VALC31]) AND (. INDEX GEQ 0) DO 
89 INDEX = TINDEX = $ 
i 
5 


-RESULT DESCCOBGSL_ VALUE POINTER] = ,TEMP VAL 
RESUL T_DESCCDBG$B_VALUE_BTYPE) = DSC$K_DTYPE t; 
RESULT ~DESCCDBGSB~ VALUE =SCALE] = .SCALE; 


oovovond 


SESRASS oO 


a a ed ed 2 do od 


= RINIPIPINIAD HAMA AMM MANA NHN HH BE BB BB EP WIIIPOPOPONoToTnononeny 


SSSsawsstassateees 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
24 47 42 46 SC 2? 4F 47 4E 41 4C 47 42 44 32 00 08 P.AAW: .ASCII \2DBGLANGOP\<92>\DBGSMUL_FIXED_FIXED sho\ 
44 45 58 49 46 44 45 58 49 46 5F | 33 40 1 
62 sf Be 
é5 ? 


65 68 20 65 62 20 72 65 76 65 6E€ 20 -ASCII \uld never be here\ 


01FC 00000 
8 000000006 9 
nee, $8 ap Bote 
14 AE 14 A7 0c 1 
56 08 ac 16 
08 AE 14 A6 of 1A 
6E 1 B 0 0 
04 AE 1 B6 $ 4 
18 AE 6E E +) 
0c AE 04 AE — 00 
14 AE 9F 000 
0000v CF 01 FB 000 
08 AE 9F OOO3A 
0000v CF 01 FB 000 
20 «AE 00 04 af 6— 7A 0004 
5 1 AE 98 0004 
18 EB oben 
50 24 AE OD 0054 
9 1 0058 
FFFFFFFF BF 0 D1 QOOSA 
oo ER 9aR8t 
se ‘ Ae 06 90083 
50 54 1 1F § 006D 
9 072 
09 4 € 074 
00028788 F OD 077 
8 1 =#&F 7D 
54 4 FF F 78 00 
3 p06 000 
oe 0087 
3 0 pe 0089 
2 1 0 O8C 
50 5 i a2 EF 00st 
f 0 pa 
08 90038 
2 oF 
1 Al 
FFFEFFFFF 8F 1 A3 
1 2 AA 
00000000' F OF A 
1 OD B 
00028362 F OD B4 
8 FB BA 
54 20 = AE sai $ 4 ra 
§ 02 A243 fF 3 
50 20 AE 1 00 EF cc 


11 


db $2:49i0) — Ubkeus. SacSSactancor.038; 1 


f 


DBGSCODE,NOWRT, SHR, PIC,0 


DBGSMUL _FIXED_FIXED, Save R2,R3,R4,R5,R6,- 


LIBSSIGNAL, RB 


#40, SP 
ARG _DESCI R? 
#i2, OO(R?), VAL_DESC1 
ARG_D s¢2 R6 

# (R6), VAL_DESC2 
(R?), VALUE1 

024 (RG), VALUEZ 
VALUE1, VAL_DESC1+4 
VALUE2, VAL-DESC2+4 


VAL_DE 
Ay, DBGSNORMAL IZE_FIXED 
#1, DBGSNORMALIZE_FIXED 
VALUE1, VALUE2, #0, RESULT_VALUE 
VAL_DESC1+8, SCALE 
VAL-DESC2+8, RO 

RO, SCA 

R SULT_VALUE+4, RO 

RO, #-1 
RESULT_VALUE, TEMP_VAL 
* #1, RESULT _VALOE+4, RO 
#31, wi, TEMP_JAL, RO 
TEMP_VAL, 2$ 
hies?ri 
#1, LIBSSIGNAL 
#-{, TEMP_VAL, TEMP_VAL 
CALE 
RO, TEMP_VAL 

34 


#1, TEMP_VAL, RO 
#31, #1, TEMP_VAL, RO 


~~ 
on 


SUeo-o 


9 1 
¢ 00028788 . p 
oc ac OD 
18 8B 4 
16 =A : 
1c OA 
0 


; Routine Size: 238 bytes, Routine Base: 


| 


4 


DBGSCODE + 116€ 


00 


i” 


iScdeoct9Re 01:20:50 YARGHY OLiges2 v4a0-742 
y 


A 


BEQL 7 

PUSHL #165771 

CALLS # LIBSSIGNAL 
MOVL RESULT_DESC, RO 
MOVL «TEMP yAL 924 (RO) 
MOVe ff (RO) 

ROVE SCALE, 28(RO) 


} 


-$ep-1984 AX-11 Bliss-32 V4.0-7 Pa | 
tite 207n 188s 93:99i89 «HONE GS Bh ss5ze hal os3. 1 oe 38 
GLOBAL ROUTINE DBGSNEQ_FIXED_FIXED (ARG_DESC1, ARG_DESC2, RESULT_DESC): NOVALUE = ; | 
i FUNCTION | 


s 
. 


a 


This routine is called to perform the not equal to operation 
on a scaled binary variable. | 


i INPUTS 


ARG_DESC1 = points to the value yond: + nl representing the 
eft argument of the oper 


> ne 


PEN OC OBNOVN EAN (COONS 


rigne argument of the operat 
RESULT_DESC = points to the value descriptor representing the result. 


! of the operation. 
i OUTPUTS 


' 
' 
' 
i] 
' 
' 
' 
' 
' 
} ARG_DESC2 . p ints to the value descriptor + representing the 
on 
' 
' 
' 
' 
' 
: ue result value descriptor is filled in. 

' 


No value is returned. 


1 

1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 

1 

1: 

BEGIN | 

MAP 

ARG_DESC1 : REF DBGSVALDESC, 

ARG-DESC2 : REF DBGSVALDESC, 

LT_DE | 

| 

} 

! 


a te 


oo 
MPwn— DONONE WI OOONA MEW aODe WMP wr, 


sc : REF DBGSVALDESC; 
C1 : DBGS$STG_DESC, 
sc2 : DBGSSTG_DESC, 
VALUE 2: 
: Set up working variables. This way we don't mess up anything important. 


cwsnove roacse. 516 pest SIZE, ARG_DESCICOBGSA_VALUE_VMSDESC], -DESED); 
CUSIZE, ARG_DESC2LDBGSA_VALUE_VMSDESCJ, DESC2); 


DBGSL_VALUE_POINTER]; 
eR “VALUG (POINTERS; 


= VALUE2; 


L_DESC1); 
AL_DESC2); 


&- 


VALUE! = ARG D 

vars = ang ,? 
DESCILD 

$A 

F 


43 


VAL Desc Dst 


MATCH. FIXED_BINARYS(VAL_DESC1. VAL _DESC2); 

: Do the Not Equal evaluation. 
.RESULT_DESCCDBGSL_VALUE_POINTER) = ,VALUE1 NEQ .VALUE2; 
END; 


= 
w 
PUPPIES 
=O OONO NEW" O CONOUS wh O0O® 


o 


Be Ge Se Se Se Se Se Se Se Se Ge Se Ge Ge Se Se Ge Fe Ge Se Se Se Se Se Se Ge Ge Se Ge Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se SH Se Se Se Se Se Se Sees oe 


; Routine Size: 


14 «AE 
08 AE 


89 bytes, 


14 «A? 
56 

14 Ab 
6E 

4 AE 

8 AE 

OC AE 
0000v CF 
0000v CF 
0000v gf 
1 

04 AE 
18 «BI 


Routine Base: 


OOF 
20 ¢ 
06 AC 3 
oC 
08 AC 3 
$s 
1 B? D 
1 86 
6E 9E 
4 A E 
4 A F 
01 FB 
08 ag oF 
01 FB 
0 AE 9F 
1 ag oF 
0 fe 
oc AC D 
2 
Bt 
50 D0 
04 


DBGSCODE + 125C 


SOOCOCOCOOOOCOOOOOOOOOOCOOOOO 


Soooooooooooo 


oooooo 


SIs SS SSR Ne su: 
@OLMOOF>O WTDOnwo Own 


—_ 
bad 


th 


Sep-1 
12-8087} 


4 01:20: AX=11 Bliss-32 v4.0-7%4 1 
38e 93:49:09 + EOEaUG. ke SBaac Ancor .033;1 Page 28) 
| 

ENTRY DOGSNEQ_FIXED_FIXED, Save R2,R3,R4,R5,R6,R7 | 
ca: aaanatan ant oo 
moves 4 H mitt vo 7 VAL_DESC oma 
MOVC3 i City VAL_DESC2 | 
MOVL (R?), VALUE) 7 


v 3 

MOVL B24.) VALUE2 
VALUE L_DESC1+4 

BOAR VALUE2, At “DESC2+4 

CALLS #1, DBGSNORMALIZE_FIXED 

PUSHAB VAL_ 

CALLS #1, DBGSNORMALIZE_FIXED 
VAL _DESC 


PUSHAB VAL_DESC 
ig We MATCH pinee -BINARYS 


VL ULT_DESC, 
CLRL 
CMPL VALUE1, VALUE2 
BEQL 1$ 


RO 
aeye RO, @24(R1) 


# 


roror 


QESRANSLSSSLEAEANLS SSNS APIS Ooo war how oo Ooo wae 


oO 
oo 


Ss 


wn 


So 


GLOBAL ROUTINE DBGSNORMALIZE_FIXED (FIXED_DESC): NOVALUE = 
i FUNCTION 


This routing is called to normalize a peated binary value. 
It ~~ t the bits as far towards bit zero as — ae 
by moving a rightmost one bit to bit gore and Like 
adjusting all the rest. The value of the DSC$B_ SCALE field 
in the descriptor will be adjusted accordingly. 


FIXED_DESC = points to the scaled binary descriptor to be altered. 
i OUTPUTS 


The descriptor is altered as described above. 


1 
' 
! 
' 
1 
1 
' 
' 
H INPUTS 
' 
' 
! 
' 
! 
No value is returned. 


BEGIN 
P 
FIXED_DESC : REF DBGS$STG_DESC; 
LOCAL 
FIXED_LENGTH, 
FIXED_ VALUE : REF BITVECTOR(C32); ! Bit vector of the value. 


i 
FIXED LENGTH = FIXED. DESCCOSCS$W_LENGTH); 
tan (FIXED, LENGTH NEQ™1) AND (.FIXED LENGTH NEQ 2) AND (.FIXED_LENGTH NEQ 4) 


"spac. ERROR(*DBGLANGOP\DBGSNORMALIZE_FIXED, invalid scaled binary size'); 
o the normalization. 

ED_LENGTH = .FIXED Tet 8; 

ED-VALUE = .FIXED esc DSCSA. OINTER); 

Fags’ UMED * VALUE EQL 

NFIXED. DESCCDSC$B_SCALE] = 0 

WHILE 4H -FIXED_VALUECO) DO 


aie =. FIXED VALUE * =1 
fixe. ese DSC$B_SCALEJ = .FIXED ~bESCLDSCSB_ SCALE) + 1; 


mex 9 


-PSECT DBGSPLIT,NOWRT, SHR, 


wn 
wes 
im 

= 

ate 
o- 
oe 
~-~-o 


4D 


ifcdeoc19Be 01:70:89 yanett Btins=s2,ve,0-742 | 


47 oi ? 1 Fa P.AAX: ASCII \9DBGLANGOP\<92>\DBGSNORMALIZE_FIXED, in\ 


voe=000 


; Routine Size: 


74 bytes, 


69 62 20 64 65 6C 61 


ee ee 


00 

26 04 $3 

01 : 

1F 
02 53 
1A 
04 $3 

1 

00000000" oi 

00028362 F 
000000006 99 03 
08 

50 046 =A 

6 
04 
08 A2 
OA 60 

60 60 FF OSE 
08 A 


Routine Base: 


owo-o oO "oo O-90 90 -9OWT oO 


o-o~m 


FM AWOFL SMM £ DOS MW" 9S NOE 


DBGSCODE + 1285 


he 


OOoooooooooooooooo 
SSsssoooooooeooeSeeoeesS 


oooooo 


RS 


23 
OAOMOOw 


— 
Aad 
ee 


o 


DNS OW 


Ww 
bed 


i 


~ 
bad 


-Sep-1904 01:20:40 


-Sep-1 


ASCII 


«PSECT 
-ENTRY 
M 


AX-11 Ol igsnse V4.0-74 
DEBUG. SRC JDBGLANGOP .832;1 


\valid scaled binary size\ 


DBGSCODE,NOWRT, SHR, PIC,0 
DBGSNORMALIZE_FIXED, Save R2,R3 
FIXED_DESC 

2), F1XED_LENGTH 
F IXED_LENGTR, #7] 
F IXED_LENGTH, #2 


IXED_LENGTH, #4 


(FIXED VALUE), 3$ 
ord (FINED LWALUE). (F IXED_VALUE) 


Pete Se Ge Se Be Ge Se Se Se Ge Ge Ge Se Ge Ge Ge Se Se Se Se Se Se Se 


nmronr 
ene 


=3382 2 Ses 


oSeN 


a2 Yt YY 


OONAOVSWN —CODNOUE WN 


FUSS 


uw 


Pe et eee ee 


PDAAPAAR AIAN 
OB GONE AE WN OOD NONE WIN OOO 


Sah talk eee take eke tek ek eee eee ee ee 


FE WWWWIWI WII anonononononorononony ] 3 


=O ODNAOUE WIN (OOO NAUE WN ("OO ONOUS wry 


hh 


yy ot at et et et et et et et ee ee 
SOR PUTS SS 
MEW OO OOVNOUE WI" O0OOno 


nee 
35 


NINA NIAAA OPOPOPOPPONINIPUPOPOPOPUNIPOPINOPU POPUP tt 


G 
! 
i 


11 


1-00-1984 01:20:30 


LOBAL ROUTINE DBGSPRED_ENUM (ARG_DESC, RESULT_DESC): NOVALUE = 
FUNCTION 


This routine is called to perform the PRED built-in function 
or "PRED function for Ada on an enumerated type variable. 


INPUTS 
ARG_DESC = points to the value descriptor representing the 
argument of the PRED built-in function. 
RESULT_DESC = points to the voles descriptor representing the result. 
of the PRED built-in function operator. 
OUTPUTS 


The result value descriptor is filled in. 
No value is returned. 


BEGIN 

MAP 
ARG_DESC : REF DBGSVALDESC, 
RESOLT_DESC : REF DBGSVALDESC; 

LOCAL 
COMPLIST : REF VECTOR C,LONG], ! Type component List in the RST 
COMPCOUNT, ' Number of components in List 
DST_VALUE : VECTOR C3,LONG), ' Value contained in DST 
DUMAY , ' Dummy for DBGSSTA_SYMVALUE 
INDEX, ! Index for component search loop 
FCODE, ' FCODE for argument 
TYPEID : REF RSTSENTRY; ! Points to a TYPEID 


Obtain a typeid and fcode for the argument. 
DBGSSTA_SYMTYPE(.ARG_DESCLDBG$L_DHDR_TYPEID), FCODE, TYPEID); 
Obtain enumeration type info. 
DBGSSTA_TYP_ENUM(.TYPEID, COMPCOUNT, COMPLIST, DUMMY); 
! Now perform the PRED operation by finding the current enumeration 
' element and from there swaeing the value of the previous element and 
moving the new value into RESULT_DESC. 
RESULT DESCLDBGSL_DHDR_T¥PE1DJ = .ARG_DESCCOBGSL_DHDR_TYPEID); 
= he 
WHILE .INDEX LEQ .COMPCOUNT-1 DO 
BEGIN 
' Compare the values to see if this is the current enumerated element 
} Must go down into the DST to get the value. 


DBGSSTA_SYMVALUE( .COMPLISTC . INDEX? DST_VALUECO) 
IF .ARG-DESCCDBGSL_VALUE_VALUEO) EQL ..6ST_VALUECO 


E 
EXITLOOP; 


aia 


AX-11 Bliss-32 V4.0-7 
DEBUG. SRC JDBGLANGOP .B. 


4 
32;1 


Page 


COCOONS NNO 
MEWN "OC OONOUSWwN—0O0 


PEPPER E PEPPER PPE EES 


Sogo 
Ooo 


r~ 
co 
NO 


47 42 44 SC 50 4F 47 4 
70 6D 6F 63 20 4D 55 4 


41 
45 
20 6€ 69 20 64 6€ 75 6F 96 29 74 


N 11 
1er$ep-1986 12:97:01 EDEBUG. SRCSDBGLANGOP 0839: 


INDEX = . INDEX + 1; 
END; 


IF .INDEX GEQ .COMPCOUNT 
THEN 


If 
THE 


SDBG_ERROR ('DBGLANGOP\DBGSPRED_ENUM component not found in the RST"); 


, een GTR 0 


BEG 
tater SYM ALY (. COMPLISTC.INDEX=1], DST_VAL 3 0], DUMMY); 
RESULT “BESC {DBS L_VALUE VALUEQJ = = ,.DST_VALUECO); 
RESULT-DESCCDBGSL-DHDR_SYMIDO) = .COMPLISTC. INDEX-1); 


END 
ELSE 


END; 


} If enumeration is out of range, signal the error here. 
SIGNAL (DBG$_ILLENUMVAL) ; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
P.AAY: .ASCII \6DBGLANGOP\<92>\DBGSPRED_ENUM component\ 


eASCII \ not found in the RST\ 


RLARG 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


OOFC 00000 .ENTRY DBGSPRED ENUM Save R2,R3,R4,R5,R6,R7 
57 000000006 90 9E 0000 MOVAB LIBSSIGNAL, 
6 000000006 00 H 00 NOVAB beat SHAVALUE. R6 
SE 20 C2 0001 SUBL 
E BD 001 PUSHL 
08 AE OF 01 PUSHAB PCODE 
54 4 AC DO 0001 MOVL  ARG_DESC, R4 
08 AS DD 1 PUSHL 8(R 
000000006 00 03 FB OOO1F CALLS #3, DBGSSTA_SYMTYPE 
10 AE OF 0 f PUSHAB DUMMY 
OC AE OF PUSHAB COMPLIST 
14 AE 9F 0002C PUSHAB COMPCOUNT 
OC AE OD O002F PUSHL 
000000006 09 04 F 3 CALLS Maa TYP _ENUM 
08 AC D MOVL ith DES 
08 AS AG D MOVL 
: D 4 CLRL 
0c AE cs 4 SUBL3 _ ame RS 
5 ; Q 49 1$: CMPL i _ 
18 14 0004C BGTR 
10 AE 9F O004E PUSHAB DUMMY 


+ 


| 
Page 5) 


| 
j 
| 
j 
| 
| 
| 


2412 


2447 


Pe 01:20:50 YAMGNT BLigg= 52 Ma O-742 


18 AE OF 1 PUSHAB DST VALUE 
10 BE42 0D PUSH a et INDEX] 
&% 03 F CALL G3STA_SYMVALUE 
146 «BE 20 a, : CPL trae aDST_VALUE 
: p Ince NDEX 
Oc AE pb} 28: CMPL NDEX, COMPCOUNT 
A BLSS 
00000000' f oF PUSHAB P.AAY 
, 00028362 F DD 0007 PUSHL #164706 
; F 7A CALLS #3, LIBSSIGNAL 
p 7D 3S: TSTL INDEX 
iC 7F LEQ 
10 AE 9F 00081 PUSHAB DUMMY 
18 AE 9F 000 PUSHAB DST_VALUE 
52 10 BE42 DE 00087 MOVAL @CORPL ISTCINDEXI, R2 
FC Ad DD 0008C PUSHL gir 
6 0 FB OO8F CALLS z ,PBGSSTA. YMVALUE 
20 A 14 Bg D 009¢ MOVL LUE 
OC A FC OA BO 009 MOVL apérvh 1 ind 
4 0009C RET 
00028840 8F ODD 9009p 4$ PUSHL #165952 
7? 01 FB OOOA CALLS #1, LIBSSIGNAL 
04 000A6 RET 


; Routine Size: 167 bytes, Routine Base: DBGSCODE + 12FF 


GLAN 16-56 Sep-1 AX-11 Bliss-32 v4.0-7 Page 87 
i ~3e0n 138i 9}: 79: 3 DEBUG. SRCJDBGLANGOP. b3 31 . 2 
GLOBAL ROUTINE DBGSSUB_FIXED_FIXED (ARG_DESC1, ARG_DESC2, RESULT_DESC): NOVALUE = 
i FUNCTION 


4 
5 4 
49 ! 
5 494 ! This routine is called to perform the subtract operation 
re 4 } on a scaled binary variable. 
9 49 ! INPUTS 
4 49 ! 
9 49 ! ARG_DESC1 = points to the value descriptor representing the 
94 } eft argument of the operation 
95 1 : ARG_ DESC2 - p ints to the value descriptor representing the 
38 § : rignt argument of the operatio 
9 ' RESULT_DESC = points to the value descriptor representing the result. 
a8 : } of the operation. 
4 $ ! OUTPUTS 
401 ! 
40 ‘ The result value descriptor is filled in. 
40 ' No value is returned. 
404 : 
eke 
toy 


ns st 


MEW 90 VON WN" O OO NOUS WO 


sc : REF DBGSVALDESC; 
AL 
RESULT VALUE, 
SCALE 


VAL bésc1 : DBGS$STG 
VAL LApesce : DBGSSTG 


rar df 
: Set up working variables. This way we don't mess up anything important. 


CHSMOVE (DBGSK ~5T 
CHSMOVE (DBGSK_S 


VALUE? = . 
VALUE2 = if 


SIZE, ARG_DESCICOBGSA_VALUE_VMSDESC], mo -BESED): 
IZE, ARG —DESC2CDBGS$A_ VALUE _VMSDESC DESC2); 


=s 
GSL_VALUE_POINTER); 
su. “VALUE - POINTER); 
="VALUET; 
= VALUE2; 


TG_ 
_D 
“D 
VAL_DESC1 
VAL=DESC2 


K 

A 
DBGSNORMAL IZE_F 
DBGSNORMAL J ZE-F 
MATCH. FIXED BINARYS(VAL _DESC1, "wa eee 
Do the Subtraction. 


RESULT VALUE = svaeuel » VALU 2; 
SCALE = .VAL_DESC1 ($8. § 


' Has an overflow occured? 


CALE); 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 . 
BEGIN 
MAP 
ARG_DESC1 : REF DBGSVALDESC, 
ARG DESC : REF DBGSVALDESC, 


POPU DPV PVP LULU LULDVDVSUSVSULV PISS SUSIE SUSI SUSI SISTA 


SLPS 
Oulu —0O0e 


18. 1 2 | 
vive ial 13-308=188e 93:99:59 ¥OKadG. Bae Sbeccancos .635.1 : P0988) 


5 2661 47 
: 266 4 ir .VALUE1<31, > NEQ .VALUE2<31, > AND 
; 443 4 i RESULT <IALUESSY , 0> EQL eM ALUEDESS 1, 0> 
+ 2665 BEGIN 
; 446 IF .RESULT_VALUE<O, 1, 0> 
; 448 i SIGNAL (DBGS_ 1F LXUND) ; 
+ 266 5 RESULT <VALUE = RESULT VALUE * =1; 
3 2450 § SCALE = .SCALE + 
> 2651 RESULT * vALUe< 1, 1, O> = .VALUE1<31, 1, 0»; 
a os 
: 2454 6 .RESULT_DES CoaGsi VALUE_POINTER] = RESULT VALUE: 
> 2655 6 RE SUL BES{{peGE8 $8_QALUE_BTYPE] = DSCSK_DTYPE_L; 
; 496 ¢ RESULT ~DESCCDBGS$B-VALUE-SCALE] = SCA NE, 
: 2458 564 END; 
00FC 00000 ENTRY rae FIXED_FIXED, Save R2,R3,R4,R5,R6,R7 ; 2490, 
5E 20 ¢ 9008 SUBL2 ; 
5 04 AC p 000 VL ig taht : 2528 
16 AE 14 A? 0¢ 0009 MOVC3 O(R?) "wa _DESC1 ; 
56 08 Ac 00 O00F MOVL oR ’D ; 2529, 
08 AE 16 Ab o¢ 00013 MOVC3) #1 Oths) VAL_DESC2 ; 
6E 18 87 DO 00019 MOVL ag4iR ), VALUE1 + 2531 
04 AE 18 B86 00 0001D MOVL  @24(R6). VALUE? : 253 
18 AE 6E 9E 00022 MOVAB VALUE1, VAL_DESC1+4 : 25 
OC AE 04 AE 99E 00026 MOVAB  VALUE2, VAL~DESC2+4 : 2534 
14 AE 9F 00028 PUSHAB VAL D : 2536 
FEDC CF 01 FB 000 E CALLS 1, “DBGSNORMAL I ZE_FIXED F 
08 AE 9F 000 PUSHAB vA # : 2537 
FEDS «CF 01 FB 00036 CALLS , DBGSNORMAL I ZE_F I1XED ; 
08 AE OF 00 B PUSHAB VAL_DESC : 2539 
18 AE 9F 000 : 5 VAL~DESC ; 
0000v CF 02 FB 0004 CALLS #2,7 BATCH FIXED_BINARYS ; 
52 6 04 AE 0046 SUBL VALUE E2 ALUEI ARESULT “VALUE : 254 
I¢ AE 0048 CVTB bEScl+ : 254 
50 07 «AE AE p O04F XORB VALOE A 8 SCALE > 254 
50 07 («A 1 of EF 3 EXTZV VALUE2+3, RO : 254 
50 5 1 fF 6 e CMV asi, "i. RESULT_VALUE, RO : 
0D E BLBC RESULT_VALUE, 18 : 255 
00028788 BF DD 8 67 PUSHL aie SPT ; $22 
000000006 99 1 Fe $0 CALLS TASSIGNAL : 
FF F i ie 1$: ASHL fA tRESULI _VALUE, RESULT_VALUE : 335 
59 03 AE ; EF 78 EXTZV ee i vA VE1+3, RO ; 32 
01 F oF INSV { » RESULT_VALUE ; 
50 oc AC OD 28: MOVL Recut R > 256 
18 8B 3 p A MOVL RESULT VA seh @24 (RO) : 
16 MOVE : 2561 


ei HES ST ELSIE, lt 
1c = =—A0 53 oe 49944 eeye SCALE, 28(R0) . 3562. 


; Routine Size: 151 bytes, Routine Base: DBGSCODE + 13A6 


= 16-500-19 r 91:20: 30 AXx-11 Ot igsnse Neo. 685:1 


BEGIN 

MAP 
ARG _DESC : REF DBGSVALDESC, 
RESOLT_DESC : REF DBGSVALDESC; 


- -Sep-19 DEBUG. SRC JDBGLANGOP .B 
re 65 GLOBAL ROUTINE DBGSSUCC_ENUM (ARG_DESC, RESULT_DESC): NOVALUE = 
46 6 FUNCTION 
464 i This routine is called to perform the SUCC built-in function 
ret } or ‘SUCC function for Ada on an enumerated type variable. 
46 i INPUTS 
4 7% 1 ARG_DESC = points to the value descriptor representing the 
4 75 ! argument of the SUCC bute function. 
47 8 ! RESULT_DESC = points to the value descriptor representing the result. 
of 4 of the SUCC built-in function operator. 
47s 23 ; OUTPUTS 
47 1 i The result value descriptor is filled in. 
47 ¢ ! No value is returned. 
47 : 
3 
8 
9 


LOCAL 

COMPLIST : REF VECTOR C,LONG), 
COMPCOUNT, 

DST_VALUE : VECTOR (€3,LONG], 
DUMAY 


! Type component List in the RST 
! Number of components in List 
' Value contained in DST 
! Dummy for DBGSSTA_XXXXx 
! Index for component search loop 
' FCODE for argument 
TYPE] : REF RSTSENTRY; ! Points to a TYPEID 

Obtain a typeid and fcode for the argument. 
DBGSSTA_SYMTYPE(.ARG_DESCCDBGS$L_DHDR_TYPEID], FCODE, TYPEID); 

Obtain enumeration type info. 

DBGSSTA_TYP_ENUM(.TYPEID, COMPCOUNT, COMPLIST, DUMMY); 


! Now perform the SUCC operation by finding the current enumeration 
! element and from there finding the value of the next element and moving 
; the new value into RESULT_DESC. 
RESULT DESCCDBGSL_DHDR_ TYPED] = .ARG_DESCCDBGSL_DHDR_TYPEID); 
t-4 . 


WHILE .INDEX LEQ .COMPCOUNT-1 DO 
BEGIN 


oO 
WN 


SSIES 


' Compare the values to se this is the current enumerated element 
Must go down into the DS get the value. 


e if 
T to 
DBGSSTA_SYMVALUE( .COMPL ISTE INDEX] DST_VALUECO) BUMMY) ; 
IF {ARG_DESCCDBGSL _VALUE_VALUE Ed. ..6ST_VALUECO 


EXITLOOP; 


PUP PPP PAP APPA A AAAI 3 
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et a td et 
Qu kun—o 


Se Se Ge Se Se Ge Ge Se Ge Se Se Fe Se Se Ge Fe Se Se Ge Ge Ge Fe Ge Fe Ge Ge Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Se Ge Se Ge Se Se Se Se Se Ge SH Se Se Ge Se Fe Se Se Gee 
oe SELL LL LEE 
= oo OOOO @OWOWwD 
= co oOo uw 
SESS SSS OS eee 
mis _ co MPWwN— 
PAA AAA AAI GEPIPINIPIPPIPOPNINPIPIPINDPIPINININIPIPU PU PIPIRIPIPIPINUDIRD 9 9 9 
THe 
oz 
ovo 
om 
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PAPOAOAOOAAOOAS 


—— 2. 
VEWN —O OONOUES Wh O0OO~ 
MO ODNON EW OOOVNOUS UM 


24 47 42 446 5 


41 
4D 55 4E 45 
74 20 6€ 69 20 64 6& 75 6F 66 $9 
54 


ye = INDEX + 1; 
ND; 


4 ~ INDEX GEQ .COMPCOUNT 


Sols :49:30 YMG} Shasss2 utio2e 


SDBG_ERROR (*DBGLANGOP\DBGSSUCC_ENUM component not found in the RST"); 


if «INDEX LSS .COMPCOUNT=1 
HEN 


BEGIN 

aun SYMVALUE(. COMPL ISTE. IN 
RESULT _BESC{D8G L_VALUE_V 

RESULT DESC DBGSL-DHDR_ 


Se ost vR 1 DUMMY) ; 
tOmeLTST INDEX41); 


If enumeration is out of range, signal the error here. 


SIGNAL (DBG$_ILLENUMVAL) ; 


47 4€ 


VININ SE & 


y a 

x i 

54 4 AC 

8 A4 

000000006 00 03 
10 AE 

OC AE 

14 «AE 

OC AE 

000000006 3 ¢: 
oi 8 & 

a i 


MLSWwN 
oa 
=m 
AOOue 
Warm nn e 
Aroouw 
COOMWO 
ooooo 
ooooo 
WA 


3 33 8OO 
DMMODOS VOWS Ss 


wo--cemcoVc oOo "oooonr"oOITI oo oon" 
RAEI OOS MV VMDOO™ONMMO 


PPRere 
moo 


»PSECT 
ASCII 


ASCII 


DBGSPLIT,NOWRT, SHR, PIC,0 
\6DBGLANGOP\<92>\DBGSSUCC_ENUM component\ 


\ not found in the RST\ 


DBGSCODE ,.NOWRT, SHR, PIC,0 
DBGSSUCC_ENUM, Save R2,R3,R4,R5,R6,R7 


LIBSSIGNAL, R 
bBGSSIA. SYAVALUE, R6 


F CODE 

ARG zpeEsc. R4 

ae DOGSSTA_ SYMTYPE 
CORPLIST 


TyPeID 
DBGSSTA. TYP_ENUM 
est "DE SC R37 
(R35 


RE 
8(R4 
ex’ 
COMPCOUNT , RS 
TNOEX: R 


DUMMY 


3; Routine Size: 


168 bytes, 


18 A 
1 acts 
66 
14 «BE 20 AG 
9% 
me ee 
00000000' : 
; 00028362 ; 
5 
1C 
1 AE 
nt 
52 1 “i 
06 =A 
eft uf 
oc A 04 aD 


00028840 4 
67 1 


Routine Base: DBGSCODE + 


ep-1 
ep-1 


if Je 

14S 
+ 
PB 00088 
3 
06 
4 2$: 
oF 
dd é 
DD 7 
fe 7A 
D 70 3$: 
18 
oF 0082 
ie 
Db 0080 
4 0 $3 
BO 0009 
04 00090 
DD OOO9E 4$ 
FB O00A4 
04 000A7 
1430 


4 01:20: AX-11 Bligs-32 V4.0-74 
3b 94:99:30 DEBUG. SRC IDBGLANGOP.B3 31 
PUSHAB DST_VALU 
PUSHL @ Onc TSYCunpexd 
CALL DBGSSTA_SYMVALUE 
CMPL (r4), a@DST_VALUE 
BEQL 
INCL NDEX 
BRB % 
CMPL JNDEX, COMPCOUNT 
BLSS $ 
PUSHAB P.AAZ 
PUSHL @# 
PUSHL #164706 
CALLS # L1BSS1GNAL 
CMPL INDEX, R 
BGEG =. 48 
PUSHAB DUMMY 
PUSHAB DST VALUE 
ROVAL @COMPLISTCINDEX], R2 
CALLS #3, DBGSSTA_SYMVALUE 
MOVL aDdsT VALUE 2(R3) 
OvL 4(R23, 12(R3) 
PUSHL #165952 
ALLS #1, LIBSSIGNAL 


De Se Se Se Se Fe Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Se Se Be Ge Ge Be Ge Ge Se Se 


12 | 

1b-3¢ “1984 01:20: AX=11 BLigs=32_V4.0-74 Page 93, 

VanSep-1986 42:97:01 EDeBUG.SRCSDBGLANGOP-039;1 79° (30) 

ROUTINE DBGSTYPEID_TO_PRIMARY (TYPEID, ADDRESS) = | 


' FUNCTION 

: This royt ine takes a TYPEID which describes an anonymous object, 
: and builds a Primary Descriptor for the object. 

! for example, if we dereference a typed pointer in C with (*PTR) 

; then we can get a typeid describing the pointed-to object, 

: ong we also know the ecerese of the anonymous object. 

‘ This routine turns the typeid into a Primary Descr ere 

: It first constructs a Primary root node and then calls 

; DBGSBUILD_PRIMARY_SUBNODE to create the Pr nore sub-node. 

Finally, Tt stuffS the address into the RELOC field. 

| 
i 
i 
i 
i 
i 
i 
i 


INPUTS | 
TYPEID = TYPEID for the object 
ADDRESS - A byte address for the object 


DWONAVL EWN OOONOULE Ww 


DUIUIV IV IUSVSIV IV IV IV SVSIVS ISVS OSU OSISIS 


OONAOVNLS WN OOOVNOUE W000 


PPPS EB EE EE 


660 OUTPUTS | 
661 A Primary Descriptor is built out of temporary memory and a 
666 pointer to this descriptor is returned. | 
BEGIN | 
LOCAL 
F CODE ' Fcode for this Primar 
668 NODEPTR: REF DBGSPRIM NODE, ! Pointer to a Primary X ubnode 
PRIMPTR: REF DBGSPRIMARY, ! Pointer to a Primary Descriptor 
208 670 RSTPTR; ! An estptr (either a symid or a typeid) 
68 ore 
293 of? Cbtain the fcode from the typeid. 
3) of? FCODE = DBGSSTA_TYPEFCODE (.TYPEID); 
er : Allocate space for the Primary and fill in some of the header fields. | 
699 PRIMPTR = DBGSGET TEMPMEM (DBGSK_PRIMARY SIZE); 
680 PRIMPTRCDB DHDR_LANG) = .DBGS$GB_LANGUAGE; 


G 
PRIMPTRUDBG$B_DHDR_TYPE) = DBGS$K_PRIMARY DESC; 
PRIMPTREDBGSW_DHDR-LENGTH) = DBCSK PRIMARY_SIZE*ZUPVAL; 
PRIMPTREDBG$B_DHDR-KIND) = RST$K DATA; 
PRIMPTREDBG$B_DHDR-F CODE) = .FCODE: 
PRIMPTREDBGSL_DHDR at =", TYPELD; 


s . 
= PRIMPTRIDBGSA_PRIM_FLINK); 
= PRIMPTREDBGSA_PRIM-FLINK):; 


! Call BUILD_PRIMARY_SUBNODE to build a subnode and fill in all of 
' the subnode information. Note that this routine also fills in 

: SYMID. KIND, FCODE, and TYPEID for the root node, so we do not have 
i 


SRReES tao ae 
eeeeees 
MPwn— 


Ooo 


to do that here. 
DBGS$BUILD_PRIMARY_SUBNODE (.PRIMPTR, RSTSK_DATA, 0, .FCODE, .TYPEID, 0); 
! We already know the gdéress of the object described by the Primary. 


! This address is put in the ‘’RELOC eld so that PRIM_TO_VAL 
! can determine the address of this object. 


AAOEAPSAASO 
Ned a 4-4 


RANLESELS 


Be Se Se Ge Se Se Ge Ge Ge Fe Se Se Se Se Ge Se Se Ge Ge Se Se Ge Fe Ge Ge Ge Se Ge oe Se Se Ge Ge Ge Se Se Ge Se Ge Se Se Se Se Se Se Ss Se Se Se Se Se Se Se FO Se Ss es 
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PPPS 
MEWR— 
o SSsF 
aS 
Oo w 
POR ROPORIROROPOPOPOPOPONPORONONOPOPONOPOPOPIPUPURIPONUNOPINONNUNINNY tt 


Pe AL AL Ab Ab Ab AL AD AD Ab Ab Ab Ab db db dh db echh eb bedh teeth dtd 


~o 
wu 
aw 
Se 


3; Routine Size: 


ee 


101 bytes, 


ybBto-1966 94:20:50 


AX-11 OL igenze oP ah C1 
DEBUG. SRC JOBGLANGOP .B32;1 


NODEPTR = .PRIMPTRCDBGSL_PRIM_BLINK); 
NODEPTRCDBGSL_PNODE_RELOC) = 7ADDRESS; 


H Return a pointer to a Primary. 
RETURN .PRIMPTR; 
END; 


000C 00000 DBGSTYPEID_TO_PRIMARY: 
. WORD Save R2,R3 


04 AC 0D 9002 PUSHL 
000000006 99 QI FB 000 CALLS #1, DBGSSTA_TYPEF CODE 
0 pO 0000¢ MOVL RO, FCODE 
09 DD 0000F PUSHL 
000000006 gi FB 0011 CALLS #1, DBGSGET_TEMPMEM 
0 p 0018 MOVL RO, PRIMPTR 
03 A 000000006 0 0018 MOVE §§ DBG$GB_LANGUAGE, 3(PRIMPTR) 
02 =A 7 F 90 000 MOVB #121, 2(PRIMPTRS 
6 4 8 0028 MOVW #36, (PRIMPTR) 
07 +A : 0028 MOVB = #6, _ 7 (PRIMPTR) 
06 A 9 90 F MOVB CODE, 6(PRIMPTR) 
08 A 04 AC DO 000 MOVL TYPEID, 8(PRIMPTR) 
C A2 D4 000 CLRL  12¢PRIMPTR) 
14 3 14 A2 9E 000 MOVAB : (PRIMPTR), ZOCPRIMPTR) 
18 «OA 14 A2 9E 0004 MOVAB (PRIMPTR), 24(PRIMPTR) 
7E D4 994 CLRL = (SP) 
04 AC DD 0 4 PUSHL  TYPEID 
© pp O4A PUSHL  FCODE 
7E 06 D O04¢ VQ. #6, =(SP) 
DD O004F PUSHL PRIMPTR 
000000006 90 06 F 0051 CALLS #6, DBGSBUILD. PRIMARY_SUBNODE 
0 18 A2 00 00058 MOVL 24(PRIMPTR), RODEPTR 
v . 
46 A 08 ac 00 0005¢c MOVL ADDRESS, 20(NODEPTR) 
5 52 p 0061 MOVL PRIMPTR. RO 
4 00064 RET 


Routine Base: DBGSCODE + 14E5 


K 12 
16-Sep-1986 AX-11 Bliss-32 v4.0-7 Page 95 
We=8ep-198e 12:49:01 — EdgauG. SReSeecaNcoP.633;1 *9° (31) 


GLOBAL ROUTINE DBGSUNARY_MINUS_FIXED (ARG_DESC, RESULT_DESC): NOVALUE = 
i FUNCTION 


: 


This routine is called to perform the unary minus operation 
on a scaled binary variable. 


SLSSSSSS 
pate 
wm 


WN "SO OONOVES WN "OOOO Swn 


2 I IOO 


i i i INPUTS 

1 ARG_DESC - — to the value descriptor representing the 

1 orquaens of the operation. 

1 RESULT_DESC = points to the value descriptor representing the result. 
; of the operation. 

1 i OUTPUTS 


' 
4 
1 
' 
! 
! 
! 
! 
i 
' 
' 
] 
1 
' 
! ong result value descriptor is filled in. 
No value is returned. 


BEGIN 


Pp 
RESULT DESC : REF DBGSVALDESC, 
ARG_DESC : REF DBGSVALDESC; 


RESULT -DESCCDBG$B_VALUE_SCALEJ = .ARG_D 


-RESULT bse becks. VALUE POINTER] = 0 DES 
+ ea <DESCCDBGSB- VALUE <DTYPE) = »ARG_DE 


ARG gesct pees, VALUE POINTER); 
$f} DeEsS WA E_STA ALE: 
SCCOBGSB “VALUE “DTYPE 


Dn Pi Pi i Pe Pin i in i i Ty Ts i I Dy Se ee ee ee | 


WWWNIWINI II nononononunononung 2 


NAMA WN 9 ODN UNE WN CO ODNOU SW" 00 


SPRIPIPIPIPDPRIM IIIA) a st 0 kt tt 


AAAAAAAAAAAAAAAAAAA AAS 


0000 00000 -ENTRY DBGSUNARY ps FIXED, Save nothing 3 37 8 
29 08 Ac be 88 0002 MOVL Ane Dest est 3; 27 
1 04 AC 3 00 VL 3 
18 60 18 «Bi gf oS ry MNEGL RD, “ail (RO) 3 
1¢ AO 1¢ Al 90 O0000F MOVB At de th 0) : 2735 | 
16 AO 16 Al 90 00014 MOVB ), sity 0) 3 $ 
04 00019 3 2737 


Routine Size: 26 bytes, Routine Base: DBGSCODE + 154A 
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Routine Size: 


Set tat et ee nd 


UW —OO0o 


ar 
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PUPAL SE 


760 
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SPL IPIFIPINIFIPIN IDI) a st st tt tt at 


22 bytes, 


FUNCTION 


12 


1$-$60-1964 01:20:30 


This routine is called to perform the unary plus operation 
on a scaled binary variable. 


ARG_DESC 


RESULT _DESC 


OUTPUTS 


= points to the value descriptor representing the 
ument of the operation 


ar : 
- petnte to the value descriptor representing the result. 


of the operation. 


The result value descriptor is filled in. 
No value is returned. 


BEGIN 


RESULT _DESC 
ARG_ 


G_DESC 


RESUL 
RESULT— 
ND; 
50 
18 «Al 
1c AT 
16 «Al 


Routine Base: 


T_DESCCDOBGSL_VALUE_POINT 
RESULT_DESCLDBGS$B_VALUE_SCALE 
T_DESCCDBG$B_VALUE _DTYPE 


: REF DBGSVALDESC, 
: REF DBGSVALDESC; 


ARG_DESCCOBG$B_VALUE_SCALE]; 


ER] = .ARG SE fopetev VALUE _POINTER); 
J] = J ARG_DESCCDBG$B~ VALUE -DTYPE): 


0000 00000 
04 ac 7D 00002 MOVQ G_D 0 
18 A 4 0006 MOVL 4(RO), 24(R1) 
1¢ AQ 90 000 MOVB (RO), 28(R1) 
16 Ad 90 Ba0. MOVB (RO), 22(R1) 
04 0001 RET 


DBGSCODE + 1564 


AX-11 Bliss-32 V4.0-74 
DEBUG. SRC JDBGLANGOP .B32;1 


LOBAL ROUTINE DBGSUNARY_PLUS_FIXED (ARG_DESC, RESULT_DESC): NOVALUE = 


ENTRY DBGSUNARY_PLUS_FIXED, Save nothing 


Page 


32) 


m 12 | 
16-Sep-1984 01:20: AX-11 Bliss-32 V4.0-74 Pa 7 
137398-1 382 93:99:88 DEBUG. SRC IDBGLANGOP 832; 1 953) 
ROUTINE MATCH_FIXED_BINARYS(ARG_DESC1, ARG_DESC2): NOVALUE = 
i FUNCTION | 


This routine is called to match the scaling factors of the input 
scaled binarys. We do this by moving the value with the largest 
scale down (or the éoc inal point he Left) until the scales are 
e ue Sometimes this would require shifting out the most 
significant bit of that value, in this case we then shift the other 
value up (to the right) to match. This means we would be shifting 
out some bits so we signal a message to that effect. 


INPUTS 


ARG_DESC1 - points to the VMS descriptor representing the 
first argument of the operation. 

ARG_DESC2 = points to the VMS descriptor representing the 
second argument of the operation. 


OUTPUTS 


The VMS descriptors are altered. 
No value is returned. 


BEGIN 
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691 79 


: REF DBGSSTG 
: REF DBGSSTG 


VAL1 : REF {BA 3h BE 
: REF BITVECTOR(32); 


VAL1 = .ARG_DESCICDSCSA_POINTER); 
VAL2 = .ARG_DESC2CDSCSA_POINTER); 


WHILE -ARG_DESCICDSC$B_SCALE] GTR .ARG_DESC2CDSC$B_SCALE) DO | 
IF .VAL1C30) NEQ .VAL1(31) 
THEN 


705 06 


33s 


BEGIN 
SIGNAL (DBGS_IF IXUND) ; 
WHILE .ARG_DESC2 DSC$B_SCALE) LSS .ARG_DESCICDSC$B_SCALE] DO 


.VAL2 = VAL2 * <1; 

ARG_DESC2EDSC$B_SCALE} = .ARG_DESC2CDSC$B_SCALE) + 1; 
END? 

EXITLOOP; 


.VAL1 = ,,VAL1 * 1; 
ARG _pescitpscse_schve3 = .ARG_DESCICDSC$B_SCALE) - 1; 


tt a ot ot 
NOUS WN Oo 


rororon 
Wr—OOe 


RMN 2 2 a oo 900 
FUN @OODNAULWN—O0ON 


SNS 


WHILE ,ANG_DESCZCDSCSO_SCALE) GTR .ARG_DESCICOSC$B_SCALE) DO 


| gakinae nee ieeae, ae | 
voe=000 1e-$ep-198 f2:tr:01 — EDeuG. SRcSbBGLANGOP.039; 1 Poet 53 


} 
: 27246 5 IF .VAL2C30) NEQ .VAL2C31) 
: $fs? § THEN eGIN | 
: 27 5 8 4 SIGNAL (DBG$ JELXUND)j 
: , 8 ; 4 WHILE. -ARG_DESC! DSC$B_SCALE] LSS .ARG_DESC2CDSC$B_SCALE DO | 
: 2730 é 1 .VAL1 = .,VAL1 * 1; | 
; f 1 : ; ARG _pescitoscse_scaie] = .ARG_DESCICDSC$B_SCALEJ + 1; 
; f ¢ : 4 4 EXITLOOP; | 
> 2735 .VAL2 = ..VAL2 * 1; | 
: gf 8 : : ine descatbstés_stices = .ARG_DESC2CDSC$B_SCALEJ = 1; | 
: 2738 9 : 
: 2739 B20 1 END; | 
| 
007C 00000 MATCH_FIXED_BINARYS: 
«WORD Save R2,R3,R4,R5,R6 : 2768 
56 000000006 00 9€ 00002 MOVAB LIBSSIGNAL, R6 : 
51 04 AC DO 00009 MOVL  ARG_DESC1, R1 + 2803 
55 4 Al D0 0000D MOVL  4(RT), VALI : 
50 8 AC DO 00011 MOVL  ARG_DESC2, RO + 2804 
54 04 AO dO 00015 MOVL 4(RO), VAL2 F 
53 08 Al 9E 90019 MOVAB B(RI), R3 : 2806. 
32 08 A 9 001D MOVAB &8(RO). Re : 
& 63 9 00 1 1$: CMPB ss (R'3),  (R2) : 
2A 15 00024 BLEQ = 4 ; 
50 65 01 1F EF 00026 EXTZV. #31, #1, (VALI), RO + 2808 
50 65 01 1 FD 0028 CMP2V #30. #1. (VALI). R : 
17 13 00030 EQ. 4«=ss3 ; 
00028788 ar Dd 000 PUSHL #165771 : 2811 
66 1 FB 000 CALLS #1 LIBSS1GNAL ; 
6 $2 1 90 B 2S: CAPS (RO), (R3) + 2812 
54 64 FF OF 8 004 ASHL #-1, (VAL2), (VAL2) + 2814 
62 % 004 INCB = (R25 : 2815 
Fo 1 004 BRB 2$ : iF 
65 0¢ 4 00049 3$: MULL2 #2, (VAL1) : 281 
63 97 OO4¢ DECB. ss (R$) ; 8 0 
D1 +11 0004 BRB 1$ : 
63 2 9] 0050 4$: CMPB —s-« (R2),, (R3) : 282 
he 5 BLEQ s 
64 on F EF EXTZV #31, #1, (VAL3), RO > 2825 
50 64 1 3 FD A CMP2V #30, #1. (VAL2). R : 
1 F BEQL = 6 ; 
00028788 BF DD 61 PUSHL #165771 > 2828 
6 1 FB 7 CALLS #1 LIBSSIGNAL ; 
6 $5 ? 6A 5$: CAPS (R$), (R2) : _ 
65 65 FF af rs e ASHL #1, (VAL1), (VAL1) ne 
e530 Bbote BRB ti«éSS : $836 | 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=L1IS$:DBGLANGOP/0BJ=0BJ$:DBGLANGOP MSRC$:DBGLANGOP/UPDATE=(ENH$ : DBGLANGOP ) 


Run "ttees : 
Fyeosed Time: :13. 
Lines/CPU Min 188 

Lexenes/CPU-Rin: 1514 
Memor ry Ut 528 pages 
Compi ation Complete 


Size: Ue + 995 data bytes 


GLA b-5e Sep-1984 Ax-11 8 igsaze v4.0 

idee il =300n 138% 9}: #9: 39 DEBUG.S CIDBGLANGOP. “235, 31 

64 is 6$: MULL2 #2, (VAL2) 

He Re 
4 iP 7$: RET 
; Routine Size: 128 bytes, Routine Base: DBGSCODE + 157A 
: 2760 841 1 
3; 2741 842 0 END ELUDOM 
eEXTRN LIBSSIGNAL 

; PSECT SUMMARY 
; Name Bytes Attributes 
; DBGSCODE 5626 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 
3; ODBGSPLIT NOVEC,NOWRT, RD EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 
3 Library Statistics 
Bes a = ee ee ee ec Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: meat SYSLIBILIB.L32;1 18619 5 0 1009 00:01.9 
; 55$DuU EBUG. OBJ JSTRUCDEF 432: 1 3 0 0 00:00.2 
; $25 9SDUAgB: DEBUG. OBJ JDBGLIB.L32;1 154 180 1 97 00:01.9 
é 5SDUA DEBUG. OBJIJDSTRECRDS.L32;1 
3 418 0 0 31 00: +08. on 
3 ‘ailementakieindd tatteeaals aie 1 386 16 4 22 00:00.3 
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